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