发什么消息可以向Tmemo添加一行文本?

Question

     用它的lines.add(s:string)属性方法就解决了！

Answer 1

谢谢你们的回复。但是我需要Postmessage（），所以我需要知道发送那条消息可以给Tmemo添加一行文本？

Answer 2

我只知道用WM_GETTEXT取得文本，再用WM_SETTEXT设置文本。

Answer 3

先获得memo的句柄；
然后，发就可以了；

Answer 4

TMemo不是标准的SDK控件，没有这样的消息可用吧。
不过你可自己定义一个消息，在其中处理就可以了。

Answer 5

这是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;

Answer 6

TMemo也是"EDIT"类型的控件
它的TStrins类型的Lines
在TMemo的构照函数执行时被实例化为TMemoStrings
其他的ComboBox,ListBox也类是
TComboBoxStrings,TListBoxStrings
由这些TStrings的派生类来包装这些消息

Answer 7

Memo是标准的EDIT控件，楼上的，你也学习API了。
我知道一点点，，，二楼的，代码应该没问题，我没写过，我喜欢用Delphi提供的方便方法