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;