Warum will ich eigentlich einen Timer verwenden, wenn man das eigentlich auch ins OnKeyDown setzen kann ??
So geht es ja auch
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(GetAsyncKeyState(VK_RIGHT) <> 0) then
Button1.Left := Button1.Left + 1;
if(GetAsyncKeyState(VK_SPACE) <> 0) then
Button1.Caption := IntToStr(StrToIntDef(Button1.Caption, 0)+1);
end;