PHP DM Gate v0.9 » Горячие клавиши Ctrl+пробел.

kashey © (28.02.18 16:45) [0]

Не хочется в OnKeyDown делать if (ssShift in Ctrl) and (Key = ' ') then ....
а кода RegisterHotKey(Handle, id, 0, ???); не знаю, компонент HotKey говорит что это не допустимая комбинация.

<Цитата>
Rouse_ © (28.02.18 17:17) [1]

type TForm5 = class(TForm) procedure FormCreate(Sender: TObject); private procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; end; var Form5: TForm5; implementation {$R *.dfm} procedure TForm5.FormCreate(Sender: TObject); begin RegisterHotKey(Handle, 0, MOD_CONTROL, VK_SPACE); end; procedure TForm5.WMHotKey(var Msg: TWMHotKey); begin Beep; end;

<Цитата>
KilkennyCat © (28.02.18 20:37) [2]

> kashey ©

упорно стесняешься считать себя начинающим? или не видел http://pda.delphimaster.net/?n=18?

<Цитата>
Leonid Troyanovsky © (01.03.18 11:34) [3]

> kashey © (28.02.18 16:45)

Открой для себя TActionList, TAction.
Т.е.
Action1.ShortCut := menus.ShortCut(VK_SPACE, [ssCtrl]);
Или прямо в инспекторе вписать в SecondaryShortCuts: Ctrl+Space

--
Regards, LVT.

<Цитата>
kashey © (01.03.18 11:44) [4]

> KilkennyCat © (28.02.18 20:37) [2]
>
>
> > kashey ©
>
> упорно стесняешься считать себя начинающим?

Я полу мастер.

Спасибо за ответы.

<Цитата>