TForm wird nicht aktualisiert

[ichbins]

mach application.processmessages statt repaint. Dann kann der User die Form auch verschieben (oder buttons betätigen) etc. Er kann sie sogar beenden. Dann brauchst du diesen Code:

Delphi-Quellcode:

application.processmessages;
if application.terminated then exit;

fürs Abfangen einer Abbruchbotschaft:

Delphi-Quellcode:

var
  canceled:boolean;

tform1.onbutton1click;
begin
  canceled:=true;
end;

//in der Prozedur
begin
  canceled:=false;
  [...]code[...]
  application.processmessages;
  if canceled then
  begin
    showmessage('Vorgang abgebrochen.');
    exit;
  end;
end;