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.

Form1.KeyUp problem

Form1.KeyUp problem

Forumregeln