So kann man zumindest relativ leicht aus einen abgespaltenen Thread in den
VCL-Mainthread senden:
Delphi-Quellcode:
unit HierKönnteDeinUnitNameStehen;
interface
uses
System.SysUtils,
System.Classes,
System.Messaging;
type
TMessageManagerHelper =
class helper
for TMessageManager
procedure SendMessageToQueue(
const Sender: TObject; AMessage: TMessage; ADispose: Boolean = True);
end;
implementation
{ TMessageManagerHelper }
procedure TMessageManagerHelper.SendMessageToQueue(
const Sender: TObject; AMessage: TMessage; ADispose: Boolean = True);
begin
TThread.Queue(
nil,
procedure
begin
Self.SendMessage(Sender, AMessage, ADispose);
end
);
end;
end.