hi ihr beiden ich hoffe der source bringt uns weiter, hab ein wenig auskommentiert
Delphi-Quellcode:
procedure TForm1.backgroundClick(Sender: TObject);
begin
// x = Mauspos.
x := ScreenToClient( Mouse.CursorPos ).X -75;
// hier wird überprüft in welche Richtung er laufen muss, (dementsprechend 2 animationen)
if x < mainman.left then begin
mainman.Picture.LoadFromFile('pics/jaru4.gif');
end;
if x > mainman.left then begin
mainman.Picture.LoadFromFile('pics/jaru2.gif');
end;
timer1.Enabled := true ;
timer1.Interval := 1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Das Laufen
if x < mainman.left then begin
mainman.Left := mainman.Left - 5 ;
end;
if x > mainman.left then begin
mainman.Left:= mainman.Left + 5;
end;