Dauerschleife während Button

[Emerold]

Hallo liebe Delphi-Praxis Community.
Habe mir schon länger auf dieser Seite geholfen und mir auch mal einen Account erstellt, denn ich komme bei einem Problemchen einfach nicht weiter. (Bin auch noch ganz schöner Anfänger)

Und zwar ist mein Problem folgendes.
Ich möchte ein Objekt, in diesem Falle ein einfaches Label zum Test, mit Buttons über das Bild laufen lassen, während der Button gedrückt wird.

Ich habe das jetzt so umgesetzt, dass während das Knöpflein gedrückt wird, ein anderes Label (nicht Sichtbar für den nutzer) einen Wert annimmt und während dieser Wert besteht, bewegt sich das Objekt. Beim loslassen des Buttons geht der Wert des zweiten Labels wieder zurück, sodass die Bedinnung für die Schleife nicht mehr bestehen sollte.

Delphi-Quellcode:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '2';
  Wert := StrToInt(Label2.Caption);
  while wert>=1 do
    begin
      Label1.Top := Label1.Top - 1;
      form1.refresh;
      sleep(100);
    end;
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '0';
end;

Dass das zweite Label seinen Wert verändert, also von 0 auf 2 und zurück klappt wunderbar. Aber die Schleife läuft ja bis in die unendlichkeit, weil sie nicht unterbrochen werden kann. (Button kann auch nicht mehr losgelassen werden).

Da wollte ich mal fragen, ob man mir hier evt. ein paar Tipps geben könnte, wie ich es richtig oder sogar anders/besser umsetzten könnte. Kenne mich nämlich noch nicht so in der Vielfalt an Möglichkeiten aus :)

Mit freundlichen Grüßen, der Eme

Ps.: Hoffe, ich hab alles halbwechs verständlich beschrieben. Also meine Idee und Situation ^^

[Aphton]

Der Gedanke ist richtig, nur ist es so, dass du den Thread blockst. Dafür gibts die Timer Komponente, die intern das auf nen externen Thread auslagert.

Also einfach ne Timer auf die Form platzieren, dort anstatt while nur "if .." reinmachen und testen!

[Emerold]

Alles klar. Verstehe den Sinn dahinter :D
Supi, jetzt hab ich immerhin schonmal zugriff auf die Anwendung. Jetzt neues Problem ^^
Die Dauerschleife läuft trotzdem weiter, egal was ich mache (jetz isses wie snake =P)

Gibt es irgendeinen Befehl, womit man irgendwas bestehendes "stoppen" kann? Wäre dann auch für andere meiner Programme nützlich :)

[Aphton]

Du solltest keine "Schleife" mehr haben.

[Emerold]

Hmm, moment, ich kann ja nochmal den Quelltext posten, vielleicht ja irgendwas falsch gemacht.

Delphi-Quellcode:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '2';
  Wert := StrToInt(Label2.Caption);
end;

procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label2.Caption := '0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if wert>=1 then
    begin
      Label1.Top := Label1.Top - 10;
      form1.refresh;
      sleep(100);
    end;

end;

Edit:
Moment, ich glaube, ich hab den Fehler. Ich überprüfe kurz :D
-Edit:
Jap, Fehler gefunden. Die 0 muss ja natürlich auch noch zur Variable eingebunden werden wenn der klick vorbei ist :D

Super, das Problem ist gelöst. Großes Danke für die schnelle Hilfe.
Ach ja,
kann ich irgendwie die Tickgeschwindigkeit des Timers regeln. Also wenn ich bei 'Interval' den Wert verändere passiert da irgendwie nichts. Vll. kann mir da ja auch noch jemand helfen :)

[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 :D

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.

[Emerold]

das klappt ja auch alles wunderbar :)

Meine Nachfrage war dann eben noch (steht irgendwo auf Seite 1 =P) wie ich die Tickgeschwindigkeit verändern kann, da es bei mir irgendwie nichts bringt, die Interval Eigenschaft zu verändern :)


Edit:
Moment, habe nochmal eine Idee. Ich versuch es kurz ^^

Edit:
Oke, Problem gelöst. Der Objektinspektor scheint wohl buggy zu sein. Wenn ichs im Quelltext beim Start verändete funktioniert es endlich :D Danke an all eure Hilfe und für die Geduld. Endlich kanns losgehen mit meinem Spielchen :)

[Aphton]

Ich habe den Ablauf deswegen beschrieben, weil ich vermute, dass du denkst, es hat sich mit einem klick getan.

Setz mal das Itnerval auf 10 und klick auf den Button lass aber nicht los.. sag mir dann obs geklappt hat.. Falls ja, dann lies nochmal genau was ich geschrieben habe >.>

[Emerold]

das mit dem Button nicht loslassen, war mir schon die ganze Zeit klar :D
Habe ja oben auch schon geschrieben, dass mein Problem gelöst ist. Der Übernimmnt es nur nicht aus dem Objektinspektor. Aber wenn ich es ins FormCreate eintrage klappt es.

Meine Danksagung steht oben ja auch schon :D

Freundlichste Grüße, der Eme

[Medium]

Könnte es sein, dass du eventuell 2 (oder mehr) Timer hast, und das Intervall im OI bei einem nicht mit dem Event im Code verbundenen geändert hast? Mit etwas Pech (lies: wenn Formular-File und .pas unterschiedliche Komponenten beinhalten) sind die auf dem Formular sogar nichtmals sichtbar. Schau am einfachsten mal auf die Eigenschaft "Name" wenn du deinen Timer im OI angewählt hast (sollte "Timer1" sein), und ob auf der Ereignis-Seite auch deine Prozedur "Timer1Timer" unter "OnTimer" eingetragen ist.