http://forum.delphimaster.net/cgi-bin/forum.pl?id=1641660291&n=10

TKOLAction без меню и тулбара: акселератор - примитив


ParanoiS ©   (08.01.22 19:44

не действуют акселераторы TKOLAction если на форме нет меню или тулбара. Решение: в KOLFORMCreate -

 
 mnuDummy:=NewMenu(Form,0,[],nil);
 for i := 0 to ActionList1.Count - 1 do begin
   mnuDummy.AddItem('',nil,[]);
   ActionList1.Actions[i].LinkMenuItem(mnuDummy,i);
 end;


раньше пытался через KEY_PREVIEW делать, муторно, вроде так и проще и поменьше код.

Вопрос: что правильнее? (то или другое)

ПС: ну и в mck желательно Name для KOLAction поправить...


Митя   (09.01.22 10:12[1]

Чтобы KOLActionList надо делать правку в Kol.pas и  в Koladd.pas


http://forum.delphimaster.net/cgi-bin/forum.pl?id=1641660291&n=10