Hallo zusammen,

ich habe einen Thread, der verschiedene Instanzen eines COM-Objektes initialisiert. Die Callback-Funktion des COM-Objektes liefert mir den Fortschritt einer Aktion. Der Fortschritt soll auf einem Formular ausgegeben werden.

Das Problem ist, dass das Fortschittsformular zwar angezeigt wird aber nicht aktiv ist!!! Warum???

Ich habe euch hier mal meine vorgehensweise schematisiert:

zusammenfalten · markieren

Delphi-Quellcode:

var ar: array of TtfProgress;

procedure TThread.Create();
begin
AddProgressWindowToArray;
end;

procedure TThread.Execute;
var COM_Find: IFinder;
    COM_Callback: ICallbackObject;
begin
OLEInitialize(nil);
COM_Callback:=CoCallbackObj.Create AS ICallback
COM_Find:=CoFinder.Create(COM_Callback);
COM_Fins.SearchAll('c:\');
end;

procedure TCallbackObject.Callback(FileName: PChar);
begin
ar[FIndex].Show;
ar[FIndex].tlFile.Caption:=Filename;
end;

Bin dankbar für eure Tipps
Baeuerle

Ist es nur nicht aktiv, oder wird die Fortschrittsanzeige nicht aktualisiert. Application.ProcessMessages könnte helfen.

Außerdem kommt es u.U. noch drauf an, was in deiner Sync-Methode des TThread-Abkömmlings steht ...

thx

but: Application.ProcessMessages wir durchgeführt. Was darf den nicht in der Synchronize stehen???

Zitat von Baeuerle:

Was darf den nicht in der Synchronize stehen???

Da geht's nicht um dürfen. Prinzipiell wird alles innerhalb von Snychronize() im Hauptthread ausgeführt, es führt also den Sinn von Threads teilweise wieder ad absurdum ...