Tasten druck!

[Daniel B]

Zitat von flomei:

Beispiel?!? Das krieg nicht hin.

Du willst es nur nicht selber machen!
Also, die globale Variable heisst MyImage.
Setze ein ein Formular ein Image ganz oben links, also mit x und y auf 0. Dann brachst Du noch einen Button und folgenden Code. Ist jetzt nur für nach rechts.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyImage: Integer;

implementation 
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  MyImage := 0;
  MyImage := Image1.Left;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Image1.Left < 20 then
  begin
    Image1.Left := Image1.Left + 1;
  end
  else
  begin
    Button1.Enabled := False;
  end;
end;

Da machst Du halt für alle vier Richtungen. Musst halt nur aufpassen, wann Du welche Buttons wieder Enablen musst.

Grüsse, Daniel