Automatisches hin und her hüpfen mit hilfe eines timers

[Sharky]

Hai malo,

wenn ich es richtig verstehe möchtest Du das Label abwechselnd rechts und links anzeigen lassen oder?
Dann könntest Du es doch so machen:

Delphi-Quellcode:

var
 leftpos, rightpos : Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  leftpos := 100; // Linkepostion des Labels
  rightpos := 400;  // Rechteposition des Labels
  Timer1.Interval := 1000; // einmal pro Sekunden hüpfen
  Timer1.Enabled := True;  // Timer starten
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Left = leftpos then  // Wenn es links ist
  begin
    Label1.Left := rightpos;  // dann nach rechts setzen
  end
  else
  begin
    Label1.Left := leftpos  // sonst wieder nach links
  end;
end;