http://docwiki.embarcadero.com/RADSt...andling_Method
es fehlt dir wohl noch der "MessageMap" im Form
Delphi-Quellcode:
protected
procedure UserMsgProc(var Message: TMessage); message WM_USER;
end;
(und ich würde statt "Application.ProcessMessages;" lieber "ProgressBar1 .Update .Repaint .Invalidate" verwenden wenn es das gibt. Wenn etwas nur mit "ProcessMessages" geht, ist meist das Konzept nicht so wirklich gut)