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
