2 Tasten gleichzeitig!!!

[Blackheart]

Beispiel.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if GetAsyncKeystate(VK_LEFT)  < 0 then Shape1.Left:=Shape1.Left-2;
  if GetAsyncKeystate(VK_UP)    < 0 then Shape1.Top:=Shape1.Top-2;
  if GetAsyncKeystate(VK_RIGHT) < 0 then Shape1.Left:=Shape1.Left+2;
  if GetAsyncKeystate(VK_DOWN)  < 0 then Shape1.Top:=Shape1.Top+2;
end;