Dauerschleife während Button

[Sir Rufo]

So ein Timer hat die Eigenschaft, dass der alle TTimer.Interval Millisekunden das Event TTimer.OnTimer aufruft - wenn man ihn auch läßt.

Eine Schleife in dem Event ist also kontraproduktiv.

Den Timer kann man auch ein- und ausschalten mit TTimer.Enabled.
Evtl. kannst du nun dein Label2 entsorgen

[Emerold]

Ok, supi. So spart man sich echt den ganzen Umstand mit den extra Werten, dankeschön

Trotzdem krieg ich das leider nicht hin, den Interval richtig umzustellen. Also bei der Interval Eigenschaft im Obejekt-Inspektor kann ich reinschreiben was ich will, das Objekt bewegt sich immer gleichschnell. hmm.

Hätte evt. jemand ein Beispiel, wie man das Umsetzen könnte, vll. versteh ich es dann besser

[Medium]

Was für Werte nimmst du so für das Intervall? Alles unter ca. 30ms wird auf ca. 30ms (25-40 grob) hinauslaufen, da das die kleinste Auslösung ist, die man mit einem einfachen Timer fahren kann. Soll es schneller werden, müsste man entweder auf einen High Performance Timer ausweichen, oder gar auf TThread. Gerade letzteres will ich einem Anfänger aber nicht gerade auf's Auge drücken wollen, da es einen ganzen Rattenschwanz an Bedingungen und "anders programmieren" nach sich zieht. (Dennoch lohnt es sich insgesamt schon, sich später intensiv mit Threads auseinanderzusetzen, nur würde es doch arg von den Grundlagen ablenken. Die Zeit ist am Anfang wo anders besser investiert.)

[Emerold]

oke, also.
Bei mir steht im Objektinspektor nur (also beim Timer jetzt)

Interval | 1000

Also standartmäßig. Ich hab schon sehr kleine und sehr große Zahlen versucht, trotzdem verändert sich da nichts.
Tut mir leid, falls ich ein bissle schwer von verstand sein sollte :/

[Aphton]

Das ist die Zeit in Millisekunden (1000 ms = 1 sek).
Dh heißt, er führt deinen Code in Sekunden Schritten aus! Änders um.. und hau das Sleep() weg!

[Emerold]

ich hab die dauerschleife aufgrund eines Tippes oben schon mit es etwas anderem ausgetauscht.
Projekt sieht jetzt schon so aus:

Delphi-Quellcode:

//Steuerung: Hoch
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled := true;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Timer1.Enabled := false;
end;    

//Konsole für Hoch
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Top := Label1.Top - 10;
end;    

//Konsole bei Start
procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.enabled := false;
  timer2.enabled := false;
  timer3.enabled := false;
  timer4.enabled := false;
end;

Ich habe hier jetzt die anderen Richtungen mal weggelassen
Und wie schon gesagt, ich kann beim Interval eintragen was ich will, da verändert sich nichts an der Geschwindigkeit des Ticks. Ob ich da 10 - 100 - 1000 - 10000 Eintrage ist egal.
Fehler bei Lazarus in meiner Version kann nicht sein, oder?

[Aphton]

Inwiefern weicht es von deiner Erwartung ab?

Beim draufklicken (und halten) auf Button wird der Timer aktiviert und es wird periodisch die Position verändert... solange bis die Maustatste auf dem Button losgelassen wird und somit der Timer deaktiviert wird.