Funktion / Prozedur warten lassen bis...

[Sunlight7]

Hallo,

das wäre eine Möglichkeit:

Delphi-Quellcode:

procedure TForm1.DoSomething;
begin
   // Mach was
   
   Clicked:=False;
   While not Application.Terminated {and Visible} do begin
      Sleep(10); // CPU schonen
      Application.ProcessMessages;

      If Clicked then begin
         // Mach was anderes
         Break; // Oder Exit;
      end;
   end;
end;

procedure TForm1.ButtonClick(...);
begin
   Clicked:=True;
end;

Gesünder wäre es, wenn möglich nen Timer zu nehmen, oder es in der OnClick zu machen.