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

illheart 2004-09-02 12:55:52

分不够再加

...全文

92 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

楚人无衣 2004-09-02

打赏
举报

看下是不是这样:
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;

SongCH080910 2004-09-02

打赏
举报

偶也在等待噢!

beyondtkl 2004-09-02

打赏
举报

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

利用Windows消息获取Memo的行和列是了解Windows消息的基础实例！

LRESULT SendMessage （ HWND hWnd, UINT Msg, WPARAM wParam, LPARAM lParam ） SendMessage( Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); //光标所在的行号 SendMessage( Memo1.Handle, EM_LINEIN

选中第5行 //转到指定行并选中这行的文本 procedure SelectLine(Memo1: TMemo; ln: Integer); begin Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - 1, 0); Memo1.SelLength := Length(Memo1.Lines...

procedure CursorPosition(Control: TMemo; col, row: integer);var Pos: integer;begin //检查行数是否超过了实际行数! 超过时即选最后一行 if Col>Control.Lines.Count then Col:=SendMessage(Control.Handle, EM_GETLINECOUNT, 0, 0)

http://www.delphitop.com/html/kongjian/2641.html选中第5行 //转到指定行并选中这行的文本 procedure SelectLine(Memo1: TMemo; ln: Integer); begin Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - 1,...

Delphi

5,930

社区成员

262,938

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章