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 float转换int

Delphi idhttp访问百度

Delphi getpublicip 获取公网ip

Delphi fmx自定义对话框样式，多屏幕布局

Delphi 获取网络图片

Delphi程序不受windows日期格式的影响

Delphi 用浏览器来显示带图片的邮件内容，图片无需保存为本地文件

Delphi xe vcl - tlinklabel(链接标签)

Delphi从memo去重数据

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

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

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