procedure warten lassen

[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 ...