Einzelnen Beitrag anzeigen

Benutzerbild von idontwantaname
idontwantaname

Registriert seit: 31. Aug 2004
Ort: Traiskirchen
575 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: was wenn zwei tasten gleichzeitig im FormKeyDown?

  Alt 11. Dez 2005, 21:38
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;
Oliver Hanappi
  Mit Zitat antworten Zitat