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.
