Form1.KeyUp problem

[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;

[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