Hallo,
das aus
http://www.uweraabe.de/Blog/2011/01/...th-parameters/ genannte Beispiel
Code:
procedure TMyThread.CallMyProgress(PercentComplete: Integer);
begin
if GetCurrentThreadId = MainThreadID then begin
if Assigned(FOnMyProgress) then
FOnMyProgress(PercentComplete);
end
else begin
Synchronize(
procedure
begin
CallMyProgress(PercentComplete);
end);
end;
end;
ist was ich suche, ich bin mir aber nicht sicher, ob sich das auch mit einer alten Delphi 7 Prof. Version benutzen lässt ?
Gruß, Nic