FormKeyDown

← →
Fynjy (2009-05-12 22:44) [0]

извините, я новичек))

ВОПРОС: как добиться чтобы при нажатии на кнопку
действие ** выполнялось лишь один раз (сейчас оно просто зацикливается если кнопку не отпустить)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_UP then begin * * end; end

← →
Vinum (2009-05-12 22:56) [1]

Var First:Boolean=False;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Not First then
if Key=VK_UP then
begin
*
*
First:=True;
end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
First:=False;
End;

???

← →
Fynjy (2009-05-12 23:06) [2]

спасибо огромное, Vinum ))))!!!!!!!!!!!!!!!!!

Обрабатывать только Ап ;)

FormKeyDown Найти похожие ветки