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;

[Marco Haffner]

Zitat:

Zitat von Nailor

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;

Schon mal eine andere Taste gedrückt und wieder losgelassen?

[citybreaker]

Danke für eure Hilfe, es klappt
jetzt. :bouncing4: :bounce1:

[nailor]

Zitat:

Zitat von Marco Haffner

Zitat:

Zitat von Nailor

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;

Schon mal eine andere Taste gedrückt und wieder losgelassen?

Häh? :?: :?: :?: :?:

[roderich]

Nailor, er meint damit, daß bei Deinem Code das Bild wieder sichtbar wird, wenn man irgendeine Taste <> Space drückt und wieder losläßt.

[Matze]

@Nailor: Marco hat schon Recht!

Delphi-Quellcode:

Image.Visible := (Key = 32);

ist das selbe wie

Delphi-Quellcode:

if key=32 then Image1.Visible:=true;

[nailor]

ich habe Recht! (glaub ich)

Leertaste drücken
andere Taste drücken
andere Taste loslassen -> Bild is weg (bei euerm Code)

[flomei]

Hast du schon mal meinen Code ausprobiert? Das funktioniert! Und ich weiss ehrlich gesagt nicht warum ihr hier noch urlange rumprobiert und es doch immer das Gleiche bleibt...

MfG Florian :hi: