freepascal.ru

Наваял системы внутренних команд и хоткеев.
Начальные сведения описаны в моем блоге Система внутренних команд на основе published методов и Система внутренних команд - THotkeyManager

А здесь собственно обсуждение и некоторая информация по использованию.
Преимущества (похвастаюсь ):
- Кроссплатформенность: никаких завязок на систему, все на основе LCL.
- Обьектность: Хоткеи подвязываются для конкретных обьектов форм или на сами формы. При этом можно назначать одинаковые хоткеи для разных обьектов на одной форме. По хоткею будет вызвана команда, ассоциированная с обьектом в фокусе, или команда ассоциированная с формой (если этот хоткей не обработан фокусированым обьектом).
- Параметры. Возможно назначение на хоткей команды с параметром.
- Возможность назначить несколько хоткеев на одну команду. Удобно, например, для привязки Del и F8 для команды cm_Delete.

Все команды из ActionList-а перенесенны в класс TActs. Экшены были оставленны для совместимости и удобства назначения команд менюшкам и кнопкам. Для всех экшенов из листа actionList главной формы, назначен один и тот же обработчик вида:

Код: Выделить всё

procedure TfrmMain.actExecute(Sender: TObject);
var cmd:string;
begin
cmd:=(Sender as TAction).Name;
cmd:='cm_'+copy(cmd,4,length(cmd)-3);
Actions.Execute(cmd);
end;

Actions - переменная типа TActs обьявленная в uGlobs.
Вызов команд возможен по имени:

Код: Выделить всё

Actions.Execute(cmd)

Код: Выделить всё

Actions.Execute(cmd,param)

или прямым вызовом:

Код: Выделить всё

Actions.cm_DirHotList;//без параметра

Код: Выделить всё

Actions.cm_DirHotList('some param');//с параметром

Категории команд в TActs:

Код: Выделить всё

function GetCategoriesList(var List:TStrings):integer;
function GetCommandsByCategory(Category:string; var List:TStrings):integer;

Категории получаем обрабатывая имя метода.
Стандартный вид команды-метода:

Код: Выделить всё

procedure cm_SomeFunction (param:string; var Result:integer);
procedure cm_SomeProcedure(param:string);
procedure cm_Category1_SomeProcedure(param:string);
procedure cm_Category2_SomeProcedure(param:string);


Методы без указания категории (например cm_SomeProcedure) считаются входящими в категорию Main
Эти категории отображаются в настройках на форме опций и позволяют назначать хоткеи для нужных контролов ориентируясь на название категории.


Хоткей-система представленна классом THotKeyManager (переменная HotMan в модуле uGlobs).
Два основных элемента - это списки

Код: Выделить всё

    FHotList:TStringList;
    FFormsList:TStringList;


FFormsList - содержит список имен форм и класс TObjInfoClass в обьекте, для каждой формы.

Код: Выделить всё

   TObjInfoClass=class
      AKeyDownProc :TKeyEvent;
      AObject      :TWinControl;
      AChilds:TStringList; //list of form's registered controls. For controls this is nil.
      destructor Destroy; override;
   end;


FHotList - трех-уровневая структура списков вида:
хоткеи ->Список форм ->Список контролов -> THotkeyInfoClass
Например:
-----------------------

Код: Выделить всё

FHotList:
| Хоткей1 ->  Список форм
               |Форма1 -> Список контролов ->   
                             | Контрол1 -> THotkeyInfoClass
                             | Контрол2 -> THotkeyInfoClass
               |Форма2 -> Список контролов ->   
                             | Контрол1 -> THotkeyInfoClass
                             | Контрол2 -> THotkeyInfoClass
                             | Контрол3 -> THotkeyInfoClass
| Хоткей2 ->  Список форм
               |Форма3 -> Список контролов ->   
                              | Контрол1 -> THotkeyInfoClass
                              | Контрол2 -> THotkeyInfoClass
                              | Контрол3 -> THotkeyInfoClass
                              | Контрол4-> THotkeyInfoClass



Код: Выделить всё

THotkeyInfoClass=class
     AShortCut,
     ACommand,
     AParams,
     AObjectName,
     AObjectFormName :string;
   end;   

Код обработки этого добра получился жутковатый, но оно того стоит.

Для регистрации менеджера хоткеев, в OnCreate формы нужно вызвать метод

Код: Выделить всё

  procedure RegisterHotkeyManager(AObject:TWinControl);

и соответственно в OnDestroy:

Код: Выделить всё

procedure UnRegisterHotkeyManager(AObject: TWinControl);

Добавление хоткеев:

Код: Выделить всё

   function AddHotKey(AHotKey,ACommand,AParams:string; AObject:TWinControl):integer;
function AddHotKey(AHotKey,ACommand,AParams,AObjectName,AObjectFormName:string):integer;


Например в OnCreate формы:

Код: Выделить всё

HotMan.AddHotkey('WinKey+A','cm_About',Self)

или

Код: Выделить всё

HotMan.AddHotkey('WinKey+A','cm_About','frmMain','frmMain')

или

Код: Выделить всё

HotMan.AddHotkey('WinKey+A','cm_About',edtCmdLine)

или

Код: Выделить всё

HotMan.AddHotkey('WinKey+A','cm_About','edtCmdLine','frmMain')

Удаление хоткея - аналогично:

Код: Выделить всё

     function DeleteHotKey(AHotKey,AObjectName,AObjectFormName:string):boolean;
     function DeleteHotKey(AHotKey:string; AObject:TWinControl):boolean;       

Например:

Код: Выделить всё

HotMan.DeleteHotkey('WinKey+A',Self)

Теперь о грустном - реализация интерфейса, для выборочной ассоциации хоткеев к контролам, практически нереальна. Только частично - заранее предусмотрев разделы, например, для раздела CmdLine, проводить привязку хоткеев к edtCmdLine, для раздела, Lister проводить привязку хоткеев к форме просмотрщика.
Полноценная выборочная привязка возможна ручной правкой конфига или из кода.

Только сейчас заметил, при закрытии программы в консоль пишет вот такую ошибку:

Код: Выделить всё

frmMain.Destroy
[FORMS.PP] ExceptionOccurred
  Sender=EInvalidCast
  Exception=Invalid type cast
  Stack trace:
  $00581294  THOTKEYMANAGER__DESTROY,  line 291 of uhotkeymanger.pas
TApplication.HandleException Invalid type cast
  Stack trace:
  $00581294  THOTKEYMANAGER__DESTROY,  line 291 of uhotkeymanger.pas


Да, я обратил внимание. Там, в обьекте, каким-то макаром ,в качестве формы родителя, вместо TCustomForm, оказался TWinControl.
Добавлено: Пофиксил.