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

daoshuailiuxiang 2012-07-17 05:11:44
如题
...全文
165 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
kaikai_kk 2012-07-18
  • 打赏
  • 举报
回复
var
s:string;
begin
s:='大家好';
SendMessage(Memo1.Handle,WM_SETTEXT,0,Integer(Memo1.Text+s+#13#10));
end;

Memo1.Text也可以发送WM_GETTEXT消息取得
daoshuailiuxiang 2012-07-18
  • 打赏
  • 举报
回复
谢谢,试过了,暂时没问题,
但不知道以后会不会出问题。
s11ss 2012-07-18
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 的回复:]
谢谢,试过了,暂时没问题,
但不知道以后会不会出问题。
[/Quote]不会的,原理在1楼说了!
s11ss 2012-07-17
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 的回复:]
其实 这是 这个帖子的 后续问题,

http://topic.csdn.net/u/20120717/13/de8b58aa-f54d-4f43-ac44-c01ee1651055.html

因为在线程中要操作 Tmemo.Lines.Add();

所以想 用 SendMessage 同步。
[/Quote]你先按1楼的方法试一下,我觉得这里不用。
daoshuailiuxiang 2012-07-17
  • 打赏
  • 举报
回复
其实 这是 这个帖子的 后续问题,

http://topic.csdn.net/u/20120717/13/de8b58aa-f54d-4f43-ac44-c01ee1651055.html

因为在线程中要操作 Tmemo.Lines.Add();

所以想 用 SendMessage 同步。
s11ss 2012-07-17
  • 打赏
  • 举报
回复
应当直接Form1.Memo1.Lines.Add('abc')就行了,因为Memo的Lines实际上是TMemoStrings,而Add实际上调用的Insert,Insert内调用了一系列的SendMessage。
可以看看StdCtrls单元的TMemoStrings。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧