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

DSKSwitch
Краткое описание
Компонент предназначен для переключения рабочих столов
Параметры
  • Alt - Если Down, то дополнительно нажать Alt для комбинации клавиш
  • Ctrl - Если Down, то дополнительно нажать Ctrl для комбинации клавиш
  • Shift - Если Down, то дополнительно нажать Shift для комбинации клавиш
  • Win - Если Down, то дополнительно нажать Win для комбинации клавиш
  • DSK - Номер рабочего стола по-умолчанию
  • Методы
  • doStartDSKSwitch - Запускает переключатель рабочих столов. HotKeys (горячие клавиши) - выбранные комбинации Alt, Ctrl, Shift, Win + 1..5. ARG(StartDSK)
  • doStopDSKSwitch - Останавливает переключатель рабочих столов
  • doDSKSwitch - Переключает рабочие столы. ARG(NumberDSK)
  • События
  • onStartDSKSwitch - Событие происходит всякий раз после запуска переключателя, выдавая код ошибки в поток. 0 - успешный запуск, 1 - невозможно создать класс обработчика, 2 - невозможно создать окно обработчика, 3 - невозможно зарегистрировать HotKeys. ARG(Error)
  • onDSKSwitch - Событие происходит всякий раз при изменении активного рабочего стола, выдавая в поток номер нового рабочего стола. ARG(NumberDSK)
  • Данные
  • DSK - Номер рабочего стола
  • Примеры
    
    Add(MainForm,16048403,245,203)
    {
    Visible=1
    WindowsState=1
    Point(onClose)
    link(onCreate,10435443:doStartDSKSwitch,[])
    link(onClose,10435443:doStopDSKSwitch,[])
    }
    Add(Message,12931239,462,224)
    {
    Caption=":: Инфо ::"
    Icon=4
    }
    Add(DSKSwitch,10435443,294,217)
    {
    Ctrl=1
    Win=0
    link(onStartDSKSwitch,11162735:doCase,[(338,223)(338,181)])
    link(onDSKSwitch,14030434:doString,[])
    }
    Add(FormatStr,14030434,399,224)
    {
    DataCount=1
    Mask="Переключено на рабочий стол: %1 "
    link(onFString,7181334:doWork2,[])
    }
    Add(HubEx,7181334,441,224)
    {
    link(onEvent,12931239:doMessage,[])
    }
    Add(FormatStr,12800506,399,182)
    {
    DataCount=0
    Mask="Запущен переключатель рабочих столов.\r\nАктивные клавиши - [Ctrl]-1..5"
    link(onFString,7181334:doWork1,[(445,188)])
    }
    Add(Case,11162735,350,175)
    {
    Value=Integer(0)
    link(onNextCase,14622597:doMessage,[])
    link(onTrue,12800506:doString,[])
    }
    Add(Message,14622597,462,175)
    {
    Message="Ошибка запуска"
    Caption=":: Ошибка ::"
    Icon=4
    }
    Замечания
    Обновление элемента: [svn]DSKSwitch.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...