2 Tasten gleichzeitig!!!

[himitsu]

oder notfalls in Form.OnKeyDown die Tasten merken und in Form.OnKeyUp wieder vergessen.

Delphi-Quellcode:

Var TasteA, TasteB: Boolean;

Procedure TForm1.FormKeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
  Begin
    If Key = 'a' Then TasteA := True;
    If Key = 'b' Then TasteB := True;
  End;

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  Begin
    If Key = 'a' Then TasteA := False;
    If Key = 'b' Then TasteB := False;
  End;


...

If TasteA Then {was machen, wenn Taste A gedrückt ist}