Statt PostMessage und Timer verwende ich hier gern das Thread.Queue
Delphi-Quellcode:
TThread.ForceQueue(nil, procedure // im OnShow oder OnCreate/Create
begin
...
end);
ACHTUNG: ForceQueue statt Queue, da Emba zu dämlich war Queue zu reparieren und den "Bugfix" anders nannte. (im
VCL-Thread aufgerufen, führt TThread.Queue den Code
sofort aus
... anstatt dieses falsche IF einfach zu löschen, wurde eine neue Funktion gebaut, die endlich das macht, was die Funkion "Queue" laut ihrem Namen beheuptet zu tun)