Office AddOn mit geladenem Form aus DLL und Threads

**ipworks**

Hallo.
Ich habe folgendes gemacht.

Ich habe eine Office-AddOn-DLL, die lädt auf einer anderen DLL eine Form (ansich sind es 3 Forms) mit.
In diesem Form werden die VCL-Komponenten dynamisch erzeugt.
Alles soweit paletti. Läuft auch.

Nun aber mein Problem. Ich führen im Internet abfragen auf entfernten Server mittels Threads durch.

Funzt auch.....nur....und jetzt kommt's:

Ich spreche eine Thread-procedure mit Synchronize an (vorher mit Checksynchronize() und WakeUpMainThread gearbeitet). Das Ergebnis wird auch dargestellt (und stimmt). Aber nur wenn ich zwischen dem bzw. den Thread.Create(s) noch ein ShowMessage einfüge. Wenn das ShowMessage nicht das ist, dann wird der Thread nur ausgeführt, wenn ich einen weiteren Thread ausführen, den ich natürlich nicht brauche.
Application.ProcessMessages funzt nicht.

Weiss ein schlauer Kopf warum ich dieses ShowMessage (was ich nicht haben will) brauche oder einen Ersatz.

Hier ein kurzer Auszug:

zusammenfalten · markieren

Delphi-Quellcode:

			...   

while CurrentItem <> nil do begin

   try

   xtitle:=CurrentItem.Caption;

   mylistview:=TListView(FindComponent(cprefix+smc(xtitle)));

   mylistview.Clear;

   PopThread:=TCheckpopThread.Create(CurrentItem.Subitems[0],

                                     GetAccountPassword(CurrentItem.Caption),

                                     CurrentItem.Subitems[1],

                                     CurrentItem.Subitems[2],

                                     CurrentItem.Index,

                                     tpNormal,

                                     mylistview,

                                     .......);

   CheckSynchronize();

   ShowMessage(''); // <--- will ich nicht haben, aber ohne geht nicht

   except on E:Exception do CurrentItem.Subitems[5]:=E.Message; end;

     NextItem := ListView2.GetNextItem(CurrentItem, SdAll, [IsSelected]);

     CurrentItem := NextItem;

   end;

end;

...

Noch ein Nachtrag:
Wenn ich im Thread Synchronize(procedure.name) entferne und die procedure direkt aufrufe funkioniert es. Aber warum?

Peter

Office AddOn mit geladenem Form aus DLL und Threads

Office AddOn mit geladenem Form aus DLL und Threads

Forumregeln