Image richtig verschieben.

[maximi]

Ich hab da ein Problem.
Ich möchte wenn man 'vk_left' und 'vk_right' aktiviert, dass mein bitmap nach links bzw. rechts wandert.
Dann möchte ich auch noch, wenn man vk_up aktiviert, dass mein bitmap nach oben wandert und wenn vk_up deaktiviert, dass mein Bitmap "langsam" wieder auf die alte Position wandert.

Danke
Max

[MikeS]

moin

dann reagiere doch auf das ereignis key-down deiner anwendung und verändere
dann die werte image.top und image.left!

dann sollte sich das bewegen!

[Matze]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_up    then Image1.Top  := Image1.Top - 10;
  if key = vk_down  then Image1.Top  := Image1.Top + 10;
  if key = vk_left  then Image1.Left := Image1.Left - 10;
  if key = vk_right then Image1.Left := Image1.Left + 10;
end;

[Edit]zu spät [/Edit]

[fkerber]

Hi!
Dann hol dir doch ne Variable, da speicherst du erstmal die Original-Position. Wenn dann vk-up ausgelöst wird, dann verringerst Image1.Top um einen bestimmten Wert und machst ein Delay rein, damit man das Wandern sieht.
Gleiches dann mit Rechts und Links.

Oder habe ich da was falsch verstanden?

Ciao fkerber

[Edit]Gott wie langsam[/Edit]