Ich würde es spontan so sagen (ungetestet):
Delphi-Quellcode:
procedure sending(text:string);
var data:TCopyDataStruct;
begin
data.dwdata:=0;
data.cbdata:=length(text);
data.lpdata:=@text[1]
sendmessage(zielhandle,wm_copydata,selfhandle,integer(@data));
end;
Delphi-Quellcode:
type xxx=class(TForm)
...
procedure receiving(var msg:TWMCopydata):message wm_copydata;
...
end;
...
procedure receiving(var msg:TWmcopydata);
begin
//Message in msg.copydatastruct
end;
Edit: Wenn ich mir das so ansehe, finde ich es nicht einfacher als Atoms
Edit2: 1 Fehler behoben