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

События OnKeyDown и OnKeyUp.   Найти похожие ветки 

← →
sachem ©   (2003-02-14 14:03) [0]

С событием OnKeyUp все понятно оно происходит один раз при
отпускании клавиши. А вот OnKeyDown происходит много раз
при удерживании клавиши в нажатом состоянии. Как сделать
так, чтобы это событие происходило при нажатии только
один раз.

---

← →
Reindeer Moss Eater   (2003-02-14 14:05) [1]

procedure Something.OnKeyDown(....
begin
if not FirstTime then Something.OnKeyDown:=nil;
end;

---

← →
sachem ©   (2003-02-17 11:19) [2]

Что-то у меня так не получилось???
Он вообще не знает таких функций?

---

← →
Reindeer Moss Eater   (2003-02-17 11:26) [3]

Он вообще не знает таких функций?
Кто он и каких таких функций?

---

← →
alxx ©   (2003-02-17 11:31) [4]

Похоже он имел ввиду следующее:

procedure Something.OnKeyDown(....
begin
if FirstTime then FirstTime:=False Else Exit;
end;

procedure Something.OnKeyUp(....
begin
FirstTime:=True;
end;

procedure Something.OnFormCreate(....
begin
FirstTime:=True;
end;

---

← →
Reindeer Moss Eater   (2003-02-17 11:38) [5]

Как сделать так, чтобы это событие происходило при нажатии только
один раз.

alxx, твое решение не уменьшает количество генерируемых событий OnKeyDown.

---

← →
alxx ©   (2003-02-17 12:10) [6]

Точно подмечено

---

← →
Anatoly Podgoretsky ©   (2003-02-17 12:19) [7]

procedure Something.OnKeyDown1(....
begin
Something.OnKeyDown := nil;
...
end;

procedure Something.OnKeyUp1(....
begin
Something.OnKeyDown := OnKeyDown1;
...
end;

---

← →
sachem ©   (2003-02-17 17:59) [8]

А если я нажму несколько клавиш этот код будет работать?

---

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

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



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