Form1.KeyUp problem

[JnZn558]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
  FormColor := Form1.Color;
end;

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

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

mein problem hier ist, dass beim Form1.FormKeyUp Form1.Color nicht wieder hergestellt wird. heisst sozusagen Shift enthaelt ssCtrl nicht, aber warum, bei keydown geht das.

[p80286]

Wo ist das Problem?

Wenn die [Strg]-Taste gedrückt wird, wird das Form blau, wenn die Bstb-Taste losgelassen wird, dann wird wieder "zurück gefärbt!
(D2006)

Gruß
K-H

[knochen]

Wenn du die Crtl Taste loslässt, ist die Bedingung ja nicht mehr wahr. Es muss also heißen:

if not (ssCtrl in Shift) then Form1.Color := clBtnFace;

Grüße

[DeddyH]

Dann darf die STRG-Taste aber nicht gedrückt sein. Wieso nicht einfach

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Color := FormColor;
end;

[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

[xZise]

Zitat von DeddyH:

Dann darf die STRG-Taste aber nicht gedrückt sein. Wieso nicht einfach

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Color := FormColor;
end;

Weil wenn man folgende Tasten drückt:

1. ↓ CTRL
2. ↓ Andere Taste (z.B. A)
3. ↑ Diese andere Taste
4. ↑ CTRL

Dann wird zu früh die Color zurückgesetzt. Wobei ich mich Frage ob das nicht auch der Fall ist, wenn man auf not(ssCtrl in Shift) testet.

MfG
Fabian

[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