Einzelnen Beitrag anzeigen

Nic2012

Registriert seit: 2. Mai 2012
62 Beiträge
 
#1

TThread.Synchronize + Param

  Alt 6. Jan 2014, 12:09
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
  Mit Zitat antworten Zitat