Delay verhindert, dass Applikation geschlossen werden kann

[negaH]

Vorsicht !

Du musst sicherstellen das deine Funktion die Delay() aufruft, weil sie nicht reentrant ist, nicht mehrmals als Ergeinis eintreten kann.

Delay() arbeitet quasi im Hintergrund alle Messages des Programmes ab, und dies sind zb. auch Messages das ein Button geklickt wurde. Hast du nun den Aufruf von Delay() in so einem Event drinnen dann wird diese Funktion quasi rekursiv über Messages aufgrufen. Probiers einfach aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Delay(10000);
  ShowMessage('Test');
end;

Das musst du verhindern mit zb.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FAction = 0 then
  try
    Inc(FAction);
    Button1.Caption := 'Stop';
    while FAction = 1 do
    begin
      Delay(1000);
      MessagesBeep(0);
    end;
  finally
    FAction := 0;
    Button1.Caption := 'Start';
  end else Inc(FAction);
end;

wobei FAction: Integer ein Field des TForm1 ist.

Gruß Hagen