Delphi-Quellcode:
procedure TForm1.klicker;
begin
while onoff > 0 do
begin
//...//
Application.ProcessMessages;
end;
end;
Application.ProcessMessages ist wichtig, um den anderen Bestandteilen der Benutzeroberfläche auch etwas von der Rechenzeit abzugeben. Dies ermöglicht es dem zweiten Button, den Mausklick zu erhalten.
Cheers,