Скачать: CL | DM;

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]

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

---

← →
SPeller ©   (2004-05-04 09:22) [6]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.056 c