События 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.

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

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

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

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

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