用SendMessage()对Memo如lines.add

[mygodsos]

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()一样，形成列表，别覆盖

[xxaabb]

先WM_GETTEXT 后再WM_SETTEXT成不成

[僵哥]

参考:

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;

[mygodsos]

啊，大哥，那么复杂呀，请问有没有简单一点的

[僵哥]

如果你理解了,就会觉得很简单.

[wts]

用自定义消息也可以实现。
在那个Memo所在窗体里写一个接受自定义消息的方法，里面可以Memo1.lines.add(...);
然后在你的程序里发送自定义消息，同时把要发送的文字传过去。

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

[mygodsos]

我以为一句话能搞掂，看来只好如此