Das mit dem Interface sieht natürlich klasse im Source aus...
Aber warum sendest Du nicht einfach aus dem Thread eine User-Message über Windows und schon sparst Du Dir das Syncronize!
Delphi-Quellcode:
Const
WM_PShow = WM_User + 400;
WM_PHide = WM_USer + 401;
WM_PUpdate = WM_USer + 402;
type
TMyForm = class(TForm)
private
procedure WMShowPBar(var Msg:Tmessage); message WM_PShow;
procedure WMHidePBar(var Msg:Tmessage); message WM_PHide;
procedure WMUpdatePBar(var Msg:Tmessage); message WM_PUpdate;
end;
Für Update einfach im WParam 0..100% übergeben und fertig.
Mavarik