Image nur solange anzeigen wie Space Taste gedrückt

[nailor]

Zitat von Marco Haffner:

Und warum nicht folgendes?

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Image.Visible := (Key = 32);
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Image.Visible := False;
end;

Wenn dann:

Delphi-Quellcode:

//im OnCreate noch keyPreview := true; 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Image.Visible := not (Key = 32);
end;