Und zwar hab ich mal zu Versuchszwecken versucht ein Programm zu schreiben, dass ein Label automatisch nach links und rechts hüpfen lässt(bin immer noch Anfänger in Delphi
).
jetzt sieht mein Quelltext im OnTimer-Event folgendermaßen aus:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Bewegung := Bewegung + 1; // Wert von Bewegung erhöht sich sekündlich um 1
if Bewegung = 5 then
begin
if Label1.Left = Entfernung then
Label1.Left := Entfernung + 100; // Soll nur einmal vorkommen
end;
if Bewegung = 5 then
begin
if Label1.Left = Entfernung + 100 then
Label1.left := Entfernung - 100 // nach der ersten Bewegung soll Label1 in die andere Richtung
end;
if Bewegung = 5 then
begin
if Label1.Left = Entfernung - 100 then
Label1.Left := Entfernung + 100; // nach der zweiten Bewegung wieder in die andere Richtung. Dann tritt das zweite wieder ein.
end;
if Bewegung = 5 then
Bewegung := 1; // Bewegung wird auf 1 zurückgesetzt, eine Endlos schleife soll entstehen
end;
Bewegung und Entfernung sind Variabeln vom Typ integer. Entfernung hat im OnCreat des Forms den gleichen Wert bekommen, wie Label1.Left ist. Bewegung startet mit 1.
Wenn ich das Programm jetzt laufen lasse, hüpft das Label einmal nach rechts und bleibt dort. Was hab ich falsch gemacht?