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;

[knochen]

Zitat von JnZn558:

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??

Das ist so, weil die Alt-Taste das Systemmenu der Form aktiviert. Ausprobieren mit <Alt>, danach(!) <Cursor down>. Heißt, das Systemmenu ist nach dem ersten Drücken aktiv, nur nich ausgeklappt.
Gegenprobe: Form1.BorderStyle auf bsNone setzten. Jetzt funktioniert es so wie erwartet.
Fazit: Die Alttaste ist für solch eine Aktion eher ungeeignet.

Grüße

[JnZn558]

Zitat von knochen:

Zitat von JnZn558:

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??

Das ist so, weil die Alt-Taste das Systemmenu der Form aktiviert. Ausprobieren mit <Alt>, danach(!) <Cursor down>. Heißt, das Systemmenu ist nach dem ersten Drücken aktiv, nur nich ausgeklappt.
Gegenprobe: Form1.BorderStyle auf bsNone setzten. Jetzt funktioniert es so wie erwartet.
Fazit: Die Alttaste ist für solch eine Aktion eher ungeeignet.

Grüße

danke sehr, dies hat mich aufgeklaert