Und keiner gibt dem MainThread Zeit diese zu verarbeiten.
Sicher? Das doch macht
Application.ProcessMessages.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
ResetEscPressed;
for i := 0 to 10000000 do
begin
Caption := inttostr(i);
if EscPressed('Schleife abbrechen ?') then Break;
end;
end;
Wo?
Also zumindestens nicht im Original.
Die Frage ist auch, ob man hier wirklich eine Lösung braucht, oder man man nicht besser einen "ordentlichen" und vorallem praxisnaheren Code verwendet.