Ist doch ganz einfach. Aus allen Antworten mal die einfachste heraussuchen und schon bekommt man
Delphi-Quellcode:
procedure TForm1.b_startClick(Sender: TObject);
begin
repeat
sleep (200);
Application.ProcesMessages;
If KnopfGedrueckt then
Exit;
until 1=0;
end;
Und noch fix für den Knopf was gemacht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender:TObject);
begin
KnopfGedrueckt := True;
end;
Edit: Das ist bei weitem nicht die schönste, sicherste, eleganteste Lösung des Problems, aber ein Anfang (und vielleicht auch Ende dieses Threads
).
Sherlock