用SendMessage()对Memo如lines.add-CSDN论坛

⋅押宝投诉，错误答案 ⋅[僵哥]你你你。。。。 ⋅用SendMessage()对Memo如lines.add 更多帖子 关注私聊空间博客 mygodsos 本版专家分：4316 结帖率 100%



var

  i:integer;

begin

  for i:=0 to 300 do

  SendMessage(Form1.Memo1.Handle,WM_SETTEXT,0,integer(pchar(inttostr(i))));

end;

结果就只在第一行的光标处不断覆盖i，请问用sendmessage()如何像memo.lines.add()一样，形成列表，别覆盖

0 2008-10-12 20:58:25

回复数 6 只看楼主引用举报楼主

xxaabb 本版专家分：21: 先WM_GETTEXT 后再WM_SETTEXT成不成

0 2008-10-12 21:04:51

只看TA 引用举报 #1 得分 1

⋅求老马的联系方式，站短，谢谢 ⋅【打包工具分享】InnoSetup5.4增加对被打包的程序文件进行签名 ⋅Delphi嵌入式汇编版高性能Base64编码算法，欢迎拍砖&PK 更多帖子 关注私聊空间博客 僵哥 本版专家分：74146 进士 2008年总版技术专家分年内排行榜第九 红花 2009年1月 C++ Builder大版内专家分月排行榜第一 2008年12月 Delphi大版内专家分月排行榜第一 2008年11月 Delphi大版内专家分月排行榜第一 2008年10月 Delphi大版内专家分月排行榜第一 2008年6月 Delphi大版内专家分月排行榜第一 2008年1月 Delphi大版内专家分月排行榜第一 2005年7月 C++ Builder大版内专家分月排行榜第一 黄花 2009年1月 Delphi大版内专家分月排行榜第二 2008年12月 C++ Builder大版内专家分月排行榜第二 2008年7月 Delphi大版内专家分月排行榜第二 2005年7月 Delphi大版内专家分月排行榜第二 蓝花 2009年5月 Delphi大版内专家分月排行榜第三 2009年4月 Delphi大版内专家分月排行榜第三 2009年3月 Delphi大版内专家分月排行榜第三 2009年2月 C++ Builder大版内专家分月排行榜第三 2009年2月 Delphi大版内专家分月排行榜第三 2008年11月 C++ Builder大版内专家分月排行榜第三 2008年8月 C++ Builder大版内专家分月排行榜第三 2008年7月 C++ Builder大版内专家分月排行榜第三 2008年6月 C++ Builder大版内专家分月排行榜第三 2008年5月 Delphi大版内专家分月排行榜第三 2005年8月 C++ Builder大版内专家分月排行榜第三

参考:

procedure TMemoStrings.Insert(Index: Integer; const S: string);

var

  SelStart, LineLen: Integer;

  Line: string;

begin

  if Index >= 0 then

  begin

    SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);

    if SelStart >= 0 then Line := S + #13#10 else

    begin

      SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index - 1, 0);

      if SelStart < 0 then Exit;

      LineLen := SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0);

      if LineLen = 0 then Exit;

      Inc(SelStart, LineLen);

      Line := #13#10 + s;

    end;

    SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelStart);

    SendMessage(Memo.Handle, EM_REPLACESEL, 0, Longint(PChar(Line)));

  end;

end;

0 2008-10-12 21:11:11

只看TA 引用举报 #2 得分 18

⋅押宝投诉，错误答案 ⋅[僵哥]你你你。。。。 ⋅用SendMessage()对Memo如lines.add 更多帖子 关注私聊空间博客 mygodsos 本版专家分：4316: 啊，大哥，那么复杂呀，请问有没有简单一点的

0 2008-10-12 21:28:03

只看TA 引用举报 #3 得分 0

⋅求老马的联系方式，站短，谢谢 ⋅【打包工具分享】InnoSetup5.4增加对被打包的程序文件进行签名 ⋅Delphi嵌入式汇编版高性能Base64编码算法，欢迎拍砖&PK 更多帖子 关注私聊空间博客 僵哥 本版专家分：74146 进士 2008年总版技术专家分年内排行榜第九 红花 2009年1月 C++ Builder大版内专家分月排行榜第一 2008年12月 Delphi大版内专家分月排行榜第一 2008年11月 Delphi大版内专家分月排行榜第一 2008年10月 Delphi大版内专家分月排行榜第一 2008年6月 Delphi大版内专家分月排行榜第一 2008年1月 Delphi大版内专家分月排行榜第一 2005年7月 C++ Builder大版内专家分月排行榜第一 黄花 2009年1月 Delphi大版内专家分月排行榜第二 2008年12月 C++ Builder大版内专家分月排行榜第二 2008年7月 Delphi大版内专家分月排行榜第二 2005年7月 Delphi大版内专家分月排行榜第二 蓝花 2009年5月 Delphi大版内专家分月排行榜第三 2009年4月 Delphi大版内专家分月排行榜第三 2009年3月 Delphi大版内专家分月排行榜第三 2009年2月 C++ Builder大版内专家分月排行榜第三 2009年2月 Delphi大版内专家分月排行榜第三 2008年11月 C++ Builder大版内专家分月排行榜第三 2008年8月 C++ Builder大版内专家分月排行榜第三 2008年7月 C++ Builder大版内专家分月排行榜第三 2008年6月 C++ Builder大版内专家分月排行榜第三 2008年5月 Delphi大版内专家分月排行榜第三 2005年8月 C++ Builder大版内专家分月排行榜第三: 如果你理解了,就会觉得很简单.

0 2008-10-12 21:36:11

只看TA 引用举报 #4 得分 0

⋅struts2的Action不支持用内部类做属性吗？ ⋅关于文件下载频道提个意见 ⋅关于博客文章中图片添加和显示问题 更多帖子 关注私聊空间博客 wts 本版专家分：463: 用自定义消息也可以实现。
在那个Memo所在窗体里写一个接受自定义消息的方法，里面可以Memo1.lines.add(...);
然后在你的程序里发送自定义消息，同时把要发送的文字传过去。

不过僵哥的那个代码并不复杂啊。这要还觉得复杂，那真的就什么也不用写了。

0 2008-10-13 16:57:37

只看TA 引用举报 #5 得分 1

⋅押宝投诉，错误答案 ⋅[僵哥]你你你。。。。 ⋅用SendMessage()对Memo如lines.add 更多帖子 关注私聊空间博客 mygodsos 本版专家分：4316: 我以为一句话能搞掂，看来只好如此

0 2008-10-13 17:04:32

只看TA 引用举报 #6 得分 0

用SendMessage()对Memo如lines.add [问题点数：20分，结帖人mygodsos]