Image nur solange anzeigen wie Space Taste gedrückt

[flomei]

So... Schon fertig. Du machst das mit OnKeyDown und OnKeyUp!

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if
    Key = 32
  then
    Image1.Visible := true
  else
    Image1.Visible := false;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if
    Key = 32
  then
    Image1.Visible := false
  else
    Image1.Visible := true;
end;

Sobald man Space loslässt verschwindet das Bild wieder.
Hoffe das reicht dir. Ich glaube nämlich, dass es ein ganz ganz bisschen flackert, kann mich aber auch täuschen.

MfG Florian