Handle anderer Form und Komponente (Memo) - Text hinzufügen

[Nogge]

Hatte gerade dasselbe Problem...Diese Procedure ist meine schönste Lösung.

Delphi-Quellcode:

procedure AddTextToMemo(MemoHandle:HWND; MemoText: String);
var TextLength:Integer; TextP:Pointer;
begin
  TextLength:=SendMessage(MemoHandle,WM_GETTEXTLENGTH,0,0);
  GetMem(TextP,TextLength+1);
  try
    SendMessage(MemoHandle,WM_GETTEXT,TextLength+1,lParam(TextP));
    SendMessage(MemoHandle,WM_SETTEXT,0,lParam(PChar(TextP)+#$D#$A+MemoText)); //#13#10
  finally
    FreeMem(TextP);
  end;
end;