[求助]如何用 SendMessage函数 向Tmemo 组件发送 Lines.Add 消息，

Question

如题

Answer 1

应当直接Form1.Memo1.Lines.Add('abc')就行了，因为Memo的Lines实际上是TMemoStrings，而Add实际上调用的Insert，Insert内调用了一系列的SendMessage。
可以看看StdCtrls单元的TMemoStrings。

Answer 2

其实 这是 这个帖子的 后续问题，http://topic.csdn.net/u/20120717/13/de8b58aa-f54d-4f43-ac44-c01ee1651055.html因为在线程中要操作  Tmemo.Lines.Add();所以想 用 SendMessage 同步。

Answer 3

var
  s:string;
begin
  s:='大家好';
  SendMessage(Memo1.Handle,WM_SETTEXT,0,Integer(Memo1.Text+s+#13#10));
end;Memo1.Text也可以发送WM_GETTEXT消息取得