mal den anktuellen stand dokumentieren
Delphi-Quellcode:
Procedure QueueMethod(aThreadMethod:TThreadMethod);
Begin
// Abgeschaut aus UNIT FMX.FORMS
// procedure ReleaseForm(const AForm: TCommonCustomForm);
// Wir müssen das immer so machen wie die das dort auch machen.
// Unter der Annahme dass die FMX Bibliotheken fehlerfrei sind....
{$IFDEF ANDRODID}
TThread.CreateAnonymousThread(
Procedure
Begin
TThread.CurrentThread.Queue(
nil,AthreadMethod);
end;
);
{$ELSE}
TThread.CurrentThread.ForceQueue(
nil,aThreadMethod);
{$ENDIF}
end;
Das ist die Lösung mit der ich Momentan glücklich bin.
Man darf nur Appplication.Processmessages möglichst nirgends benutzen...Weil die Threadsynchronisation an der Messagequeue hängt.