发送什么消息得到tmemo里的文本内容
答案:1 悬赏:40 手机版
解决时间 2021-11-09 00:50
- 提问者网友：鐵馬踏冰河
- 2021-11-08 06:46
发送什么消息得到tmemo里的文本内容
最佳答案
- 五星知识达人网友：天凉才是好个秋
- 2021-11-08 06:52
这是Memo1.Lines.Insert的源代码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;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯