Image nur solange anzeigen wie Space Taste gedrückt

[citybreaker]

Hallo!

Wie kann ich ein Image nur so lange anzeigen lassen
wie die Space Taste gedrückt ist?

[flomei]

Da nimmst du am besten OnKeyDown usw.
Ich mach mal eben nen Beispiel...

MfG Florian :hi:

[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 :hi:

[TimmA]

Hallo,

wo wir gerade dabei sind :mrgreen: ,


"Key = 32" = space ?!


gibts da eine Tabelle oder so, wo das aufgelistet ist was was ist ?

enter = ...

space = ...



usw ?


Gruß TimmA. :dance:

[flomei]

Ja also :roll: ... Ich hab das mit diesem Umrechner ausgerechnet...

MfG Florian :hi:

[Christian S.]

Hallo!

Ich finde die Virtual Key - Codes viel besser. Da muss man sich eigentlich nichts merken und auch nichts umrechnen:

vk_space
vk_return
vk_delete
vk_left
vk_right
...

MfG
Peter

[fkerber]

Hi!

Siehe dieser Link:
http://msdn.microsoft.com/library/de...alKeyCodes.asp

Hoffe das hilft, da hast du dann sowohl die Nummern, als auch die Namen!

Ciao fkerber

[nailor]

keypreview := true bei der form nicht vergessen!

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

[nailor]

Zitat:

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;