procedure warten lassen

[deusmac]

Wie kann ich eine Prozedur für eine beliebige zeit immer kurz unterbrechen zb während einer schleife, damit diese nicht blitzartig abläuft und wie kann ich währenddessen immer noch einen button benutzen, der am besten auch noch diese schleife anhalten kann?

[Matze]

delay

Schleife anhalten (verlassen) break

[deusmac]

Wie kann ich jetzt noch während einer laufenden Prozedur einen Button zum funktionieren bringen. Ich würd nämlich auch gerne mein Programm vor beendigung schließen können oder einfach aus der Schleife ausbrechen können, aber erst mal danke für die schnelle Antwort.

[nailor]

mit dem delay sollte das klappen.

[himitsu]

entweder:

Delphi-Quellcode:

Var Abbruch: Boolean;

Procedure Delay(msecs: Integer);
  Var FirstTickCount: LongInt;

  Begin
    FirstTickCount := GetTickCount;
    Repeat
      Application.ProcessMessages;
    Until ((GetTickCount - FirstTickCount) >= LongInt(msecs));
  End;

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    Abbruch := True;
  End;

Procedure TForm1.Button2Click(Sender: TObject);
  Var i: Integer;

  Begin
    Abbruch := False;
    For i := 1 to 1000 do Begin
      Label1.Caption := IntToStr(i);
      Delay(100);
      If Abbruch Then Break;
    End;
  End;

oder

Delphi-Quellcode:

Var Abbruch: Boolean;

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    Abbruch := True;
  End;

Procedure TForm1.Button2Click(Sender: TObject);
  Var i: Integer;

  Begin
    Abbruch := False;
    For i := 1 to 1000 do Begin
      Label1.Caption := IntToStr(i);
      Application.ProcessMessages;
      Sleep(100);
      If Abbruch Then Break;
    End;
  End;

oder ...

[Ultimator]

Zitat von deusmac:

Wie kann ich jetzt noch während einer laufenden Prozedur einen Button zum funktionieren bringen.

Das klingt für mich so, als ob die Anwendung einfriert, wenn die Prozedur läuft. In diesem Fall würde ich Application.Processmessages empfehlen (ggf. die Hilfe konsultieren )

[Vjay]

Ihr solltet in euren delay-Prozeduren noch auf die WM_QUIT prüfen

[nailor]

hab ich mich auch immer geärgert, dass man das programm nicht verlassen konnte, und ich wusste damals nicht warum. heute wo ich es verstehe, hab ich was gegen ProcessMessages.

[SirThornberry]

ich würde einen Thread empfehlen, für sowas gibts die ja damit man in der Anwendung weiter klicken kann während etwas anderes im Hintergrund noch läuft