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

[Yheeky]

Hi,

wie kann ich denn einer Memo, die sich in einer anderern Form befindet, einen Text hinzufügen?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  hMemo, hHandleDesFensters : HWND;
begin
  hHandleDesFensters := FindWindow(nil, 'TestForm');
  hMemo:= FindWindowEx(hHandleDesFensters, 0, 'TMemo', nil);
  SendMessage(hMemo, HIER SUCHE ICH DIE MESSAGE, 0, Integer(@Edit1.Text[1]));
  SendMessage(hHandleDesFensters,WM_SYSCOMMAND,SC_RESTORE,0);
  SetForegroundWindow(hHandleDesFensters);

end;

Mit WM_SETTEXT wird, wie der Name schon sagt, leider nur der Text überschrieben und nicht hinzugefügt. Ich benötige also nur noch die passende Message. Hab auch schon in der Message.pas gesucht, aber bei Memo stand da leider nichts. Hat da jemand eine Idee?

Gruß Yheeky