Вверх ↑
Пакеты 
HiAsm4
Windows 
Компоненты 
Cиcтeмa 
Устройства - GHotKey

GHotKey
Краткое описание
   Компонент предназначен для назначения системных горячих клавиш
Параметры
  • Alt - Если Down, то дополнительно нажать Alt для комбинации клавиш
  • Ctrl - Если Down, то дополнительно нажать Ctrl для комбинации клавиш
  • Shift - Если Down, то дополнительно нажать Shift для комбинации клавиш
  • Win - Если Down, то дополнительно нажать Win для комбинации клавиш
  • Key - Номер основной клавиши для комбинации клавиш
  • События
  • doStartHotKey - Назначает горячую клавишу (HotKey)
  • doStopHotKey - Отменяет горячую клавишу
  • Свойства
  • onEventHotKey - Событие происходит всякий раз при нажатии горячей клавиши в системе. ARG(NULL)
  • onStartHotKey - Событие происходит всякий раз после успешного назначения горячей клавиши. ARG(NULL)
  • onStopHotKey - Событие происходит всякий раз после отмены горячей клавиши. ARG(NULL)
  • onError - Событие происходит всякий раз при ошибки назначения горячей клавиши и выдает код ошибки в поток (1 - невозможно создать класс обработчика, 2 - невозможно создать окно обработчика, 3 - невозможно зарегистрировать HotKeys). ARG(Error)
  • Пример
    Пример использования компонента GHotKey
    
    Add(MainForm,2953706,462,98)
    {
    Width=309
    Height=128
    Point(onKeyDown)
    Point(Handle)
    }
    Add(GHotKey,3377074,224,161)
    {
    @Hint=#19:Ctrl + Alt + PageUp|
    Alt=1
    Ctrl=1
    Key=33
    Point(onError)
    link(onEventHotKey,3832100:doEvent1,[])
    link(onStartHotKey,9090942:doOn,[(292,174)(292,223)])
    link(onStopHotKey,9090942:doOff,[(300,181)(300,216)])
    link(onError,7236095:doWork1,[(275,188)])
    AddHint(41,-31,105,13,@Hint)
    }
    Add(Button,9126013,161,161)
    {
    Left=20
    Top=15
    Width=75
    TabOrder=-1
    Caption="PageUp"
    link(onClick,3377074:doStartHotKey,[])
    }
    Add(Message,14809125,371,168)
    {
    Message="PageUp"
    }
    Add(LED,9090942,322,203)
    {
    Left=110
    Top=25
    ColorBlick=255
    }
    Add(Button,818039,161,196)
    {
    Left=20
    Top=45
    Width=75
    TabOrder=-1
    Caption="Stop"
    link(onClick,3377074:doStopHotKey,[(209,202)(209,174)])
    }
    Add(GHotKey,12256241,224,245)
    {
    @Hint=#21:Ctrl + Alt + PageDown|
    Alt=1
    Ctrl=1
    Key=34
    Point(onError)
    link(onEventHotKey,13493760:doEvent1,[])
    link(onStartHotKey,12260958:doOn,[(289,258)(289,307)])
    link(onStopHotKey,12260958:doOff,[(296,265)(296,300)])
    link(onError,7236095:doWork2,[])
    AddHint(-146,73,119,13,@Hint)
    }
    Add(Button,13331777,161,245)
    {
    Left=165
    Top=15
    Width=75
    TabOrder=-1
    Caption="PageDown"
    link(onClick,12256241:doStartHotKey,[])
    }
    Add(Button,5450373,161,280)
    {
    Left=165
    Top=45
    Width=75
    TabOrder=-1
    Caption="Stop"
    link(onClick,12256241:doStopHotKey,[(209,286)(209,258)])
    }
    Add(LED,12260958,322,287)
    {
    Left=255
    Top=25
    ColorBlick=255
    }
    Add(Message,5300528,371,252)
    {
    Message="PageDown"
    }
    Add(Hub,3832100,336,161)
    {
    link(onEvent1,5378494:doWork2,[])
    link(onEvent2,14809125:doMessage,[])
    }
    Add(Hub,13493760,336,245)
    {
    link(onEvent1,5378494:doWork3,[(431,251)])
    link(onEvent2,5300528:doMessage,[])
    }
    Add(WinTools,15884268,462,147)
    {
    link(Handle,2953706:Handle,[])
    }
    Add(HubEx,5378494,427,161)
    {
    link(onEvent,15884268:doActive,[])
    }
    Add(StrList,797889,322,329)
    {
    Strings=#0:|49:Ошибка создания класса обработчика горячих клавиш|47:Ошибка создания окна обработчика горячих клавиш|66:Ошибка назначения горячей клавиши, или такая клавиша уже назначена|
    Point(doGetString)
    Point(onGetString)
    link(onGetString,6950670:doMessage,[])
    }
    Add(HubEx,7236095,271,266)
    {
    Angle=1
    link(onEvent,797889:doGetString,[(275,377)])
    }
    Add(Message,6950670,371,336)
    {
    }
    Замечания
    Обновление элемента: [svn]GHotKey.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...