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

Как вкл/выкл автоповтор символов при удержании клавиши клавиатуры   Найти похожие ветки 

← →
Константинов ©   (2004-08-12 20:14) [0]

Нужно отловить момент нажатия и после длительного удержания момент отпускания клавиши.

я перехватываю Application.OnMessage

пишу:

procedure TForm3.MyMessage(var Msg: TMsg; var Handled: Boolean);
begin
 Handled := false;
 case Msg.message of
 WM_KEYDOWN: begin
 if MSG.wParam = VK_SPACE then   ...
 WM_KEYUP:   begin
 if MSG.wParam = VK_SPACE then   ...  
end;
end;

Включается автоповтор и MyMessage начинает это обрабатывать как нажатие клавиш. Как отключить на время работы программы автоповтор символов?

Заранее спасибо.

---

← →
VMcL ©   (2004-08-12 20:27) [1]

>>Константинов ©  (12.08.04 20:14)

private
 FSpaceDown: Boolean;
...
WM_KEYDOWN:
 if (MSG.wParam = VK_SPACE) and not FSpaceDown then
 begin
   FSpaceDown := True;
   ...
 end;

WM_KEYUP:  begin
 if MSG.wParam = VK_SPACE then
 begin
   FSpaceDown := False;
   ...
 end;

?

---

← →
Константинов ©   (2004-08-12 21:53) [2]

Вот уж блин затормозил, так заторомзил.
Слов нет... проще некуда.
Большое спасибо!

---

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

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



Память: 0.45 MB
Время: 0.04 c