请教关于控件的几个问题。

leiyang 2003-01-20 09:45:47
我想用memo,richedit或者其他控件实现如下功能:

1。得到光标所在的行。
2。单击选定此行。
3。选定行上移,下移,删除等。

请问如何实现?十分感谢。
...全文
35 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
naughtyboy 2003-01-20
修改了一下
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

var
lpos,cpos: integer;
begin
if ssleft in shift then
begin
lpos := sendmessage(richedit1.Handle,EM_LINEFROMCHAR,RichEdit1.SelStart,0);
cpos := sendmessage(RichEdit1.Handle,EM_LINEINDEX,lpos,0);

showmessage(inttostr(lpos)+','+inttostr(cpos));
showmessage(richedit1.Lines[lpos]);
end;
end;
回复
naughtyboy 2003-01-20
procedure TForm1.Button1Click(Sender: TObject);
var
lpos,cpos:integer;
begin
lpos := sendmessage(richedit1.Handle,EM_LINEFROMCHAR,RichEdit1.SelStart,0);
cpos := sendmessage(RichEdit1.Handle,EM_LINEINDEX,lpos,0);

showmessage(inttostr(lpos)+','+inttostr(cpos));
end;
回复
wenxj 2003-01-20
richedit.selstart
richedit.sellength
回复
Billy_Chen28 2003-01-20
delphi\demos\richedit
回复
wjlsmail 2003-01-20
Study
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4922

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-01-20 09:45
社区公告
暂无公告