Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизСобытия 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c