Wenn man sowieso IMMER abbrechen will, kann man sich den Dialog sparen.
Delphi-Quellcode:
function EscPressed(const Msg:string):Boolean;
begin
Result := ((GetAsyncKeyState(VK_ESCAPE) and $8001) <> 0) or
((GetAsyncKeyState(VK_PAUSE) and $8001) <> 0);
if Result then Result := TRUE;
end;
Das Stimmt. Aber jetzt habe ich das Problem, dass nach dem Klick auf Escape die Schleife zwar gebreakt wird, aber wenn ich versuche, das Formular zu schliesen, dauert das gut 7 Sekunden. Das Programm scheint einzufrieren.