已知道HANDLE，怎样使用sendmessage给tmemo控件添加一行呀！兄弟着急呀！

分不够再加 问题点数：30、回复次数：3Top

1 楼beyondtkl（大龙驹<*好久没来了,兄弟们好吧。*>）回复于 2004-09-02 13:13:16 得分 0

先不要加分了，偶也想知道。。Top

2 楼SongCH080910（美丽心情）回复于 2004-09-02 13:17:46 得分 10

偶也在等待噢!Top

3 楼weizi2000（秋风啊）回复于 2004-09-02 13:30:15 得分 20

看下是不是这样:  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      s:   string;  
  begin  
      s   :=   Memo1.Text;  
      s   :=   s   +   'season   is   autumn';  
      SendMessage(Memo1.Handle,   WM_SETTEXT,   200,   Integer(PAnsiChar(s)));  
  end;Top

相关问题

• sendmessage
• memo
• handle

• 帖主：illheart
• SongCH080910
• weizi2000

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载