HotKeyEdit?

← →
Юрий Ж. © (2004-01-13 01:17) [0]

Есть ли аналог HotKeyEdit и если есть, то можно ссылочку?
Очень надо!!!

← →
<Falcon> (2004-01-13 14:47) [1]

А нужен именно компонент? А просто зарегистрировать горячуюклвишу не подходит?

← →
Юрий Ж. © (2004-01-13 21:29) [2]

>> А нужен именно компонент? А просто зарегистрировать горячуюклвишу не подходит?

Нет необходимо разрешить пользователю самому изменять сочетания горачих клавиш для чего либо, и желательно, чтобы это визуально отображалось.
Тем более, что компонент в винде стандартный, вот я и подумал, может есть компонент, или на WinAPI через CreateWindow лабать?

← →
Maxim Pushkar (2004-01-14 00:07) [3]

> Нет необходимо разрешить пользователю самому изменять сочетания
> горачих клавиш для чего либо, и желательно, чтобы это визуально
> отображалось.
> Тем более, что компонент в винде стандартный, вот я и подумал,
> может есть компонент, или на WinAPI через CreateWindow лабать?

1. Cтавишь EditBox,
2. Перехватываешь событие OnMessage
3. В нем ловишь Msg.message = одно из (WM_KEYUP, WM_KEYDOWN, WM_SYSKEYUP, WM_SYSKEYDOWN). Msg.lParam = код нажатой клавиши

При определенном энтузиазме ты получишь то, что тебе надо.

← →
BelchonokH © (2004-01-14 19:24) [4]

Рабочий пример если надо
procedure TForm3.EditBox8KeyUp(Sender: PControl; var Key: Integer; Shift: Cardinal); Var x: Integer; begin if Key<32 then exit; EditBox8.Text:=""; x:=0; if (Shift and 8)=8 then begin EditBox8.Text:=EditBox8.Text+"Ctrl+"; x:=x+MOD_CONTROL; end; if (Shift and 32)=32 then begin EditBox8.Text:=EditBox8.Text+"Alt+"; x:=x+MOD_ALT; end; if (Shift and 4)=4 then begin EditBox8.Text:=EditBox8.Text+"Shift+"; x:=x+MOD_SHIFT; end; EditBox8.Text:=EditBox8.Text+CHR(Key); end;

← →
kosend (2004-05-04 05:23) [5]

еще бы рабочий пример как назначить это сочетание клавиш...

Разжевать и в рот положить?

← →
kosend (2004-05-04 12:58) [7]

по крайней мере до уровня THotKey + ShortCut. то что в хелпе написано про TMenuAccelerator маловато будет

HotKeyEdit? Найти похожие ветки