delphi 双击TMemo选择光标所在行

本文整理自网络，侵删。

 procedure SelectMemoLine(Memo : TCustomMemo) ;
var
Line : integer;
begin
with Memo do
begin
Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
SelStart := Perform(EM_LINEINDEX, Line, 0) ;
SelLength := Length(Lines[Line]) ;
end;
end;

//Usage: 
procedure TForm1.Memo1Click(Sender: TObject) ;
begin
SelectMemoLine(Memo1) ;
end; 

相关阅读 >>

Delphi 判断目录是否可写

Delphi之如何快速开发原生activex控件

Delphi tadoquery 中文使用说明

Delphi 获取百度注册页面验证码图片的源代码

Delphi app 横屏和竖屏

Delphi 程序窗体最大化、组件居中显示代码

Delphi异常信息捕捉

Delphi 释放资源文件

Delphi 关闭显示器

Delphi 链接获取主站地址

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 双击TMemo选择光标所在行