Zitat:
The SendMessage function sends the specified message to a window or windows. The function calls the window procedure for the specified window and does not return until the window procedure has processed the message. The PostMessage function, in contrast, posts a message to a thread's message queue and returns immediately.
Das würde in etwa so aussehen:
Delphi-Quellcode:
//Vorraussetzung ist, dass du das Windowhandle eines Fensters im MainThread hast
procedure Threadexecute;
var myRecord:TmyRecord
antwort:integer;
begin
...
antwort:=sendmessage(windowhandle,WM_User,integer(@myRecord),0);
// anstatt der 0 kann man natürlich noch eine andere Zahl übergeben
...
end;
//MainThread (z.B. Form1)
type
TForm1=class(Tform)
...
procedure myThreadMessage(var msg:TMessage);message WM_User;
end;
...
procedure TForm1.myThreadMessage(var msg:TMessage);
var myRecord:^TmyRecord;
begin
myRecord:=pointer(msg.wparam);
frmForm1:=TfrmForm1.Create();
try
msg.result:=frmForm1.ShowModal; //msg.Result wird als Ergebnis von Sendmessage durchgereicht -->Antwort
finally
freeandnil(frmForm1);
end;
end;
Das funktioniert definitiv. Dein Thread steht. Aber wie gesagt: Bei übermässiger Anwendung bekommst du unlesbaren Code und du darfst niemals sendmessage in beide Richtungen verwenden (von beiden Threads aus; es darf immer nur ein Thread sendmessage benutzen)