Strings per PostMessage intern weitergeben?

[Aphton]

Beispielsweise so?

Delphi-Quellcode:

const
  WM_StrRcv = WM_USER + 1;
{...}
    { Public-Deklarationen }
    procedure OnStrRcv(var Msg: TMessage); message WM_StrRcv;
{...}
procedure TForm1.Button1Click(Sender: TObject);
var
  pStr: PString;
begin
  New( pStr );
  pStr^ := Edit1.Text;
  PostMessage( Handle, WM_StrRcv, DWord(pStr), 0 );
end;

procedure TForm1.OnStrRcv(var Msg: TMessage);
var
  pStr: PString;
begin
  pStr := PString( Msg.WParam );
  Memo1.Lines.Add( pStr^ );
  Dispose( pStr );
end;