Form1.KeyUp problem

[JnZn558]

danke sehr

so Ich hab es nun so ausprobiert, mit Ctrl klappts wunderbar, bei Alt Taste geht bei 2. druecken nicht wie bei 1.mal, zweites mal druecken muss die alt taste laenger gedrueckt halten, bis es die farbe aendert warum ist das so??

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssAlt in Shift then Form1.Color := clAqua;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if not ( ssAlt in Shift ) then Form1.Color := FormColor;
end;