Bild verschieben

[super_sebbi]

Hi,

ich bin leider noch ein ziemlicher Noob und hab ne dumme Frage:

Wie kann ich ein Bild in Delphi 6.0 bewegen - also x und y Koordinaten durch Tastendruck ändern und anschließend mein Bild an diese Stelle zeichenen/verschieben lassen?

Ich hoff ihr hab mein Anliegen so weit verstanden. Freue mich über jede Hilfe :chat:

[Mirilin]

So in dem Stil :

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.DoubleBuffered := true;
end;
...
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  k = 2;
begin
  with Image do
  begin
    case key of
      VK_Left  : Left := Left-k;
      VK_RIGHT : Left := Left+k;
      VK_Down  : Top  := Top+k;
      VK_UP    : Top  := Top-k;
    end;
  end;
end;

[super_sebbi]

Ja, danke !!!

Für alle anderen mit ähnlichem Problem:
man kann die tasten auch über Nummer ansprechen. Bei den Courser-Tasten würde das dann so aussehen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = $27) then panel1.left := panel1.left + 10;
if (Key = $25) then panel1.left := panel1.left - 10;
if (Key = $26) then panel1.top := panel1.top - 10;
if (Key = $28) then panel1.top := panel1.top + 10;
end;

[Mirilin]

Zitat:

man kann die tasten auch über Nummer ansprechen

schon klar, aber welcher der beiden Codes kann man wohl besser lesen? Für irgendwas gibt es diese Ausdrücke!

[super_sebbi]

Zitat:

schon klar, aber welcher der beiden Codes kann man wohl besser lesen? Für irgendwas gibt es diese Ausdrücke!

Hast ja recht... sollte nur eine Ergänzung sein.