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 nethttpclient1 数据库查询

Delphi xe安装2010版控件

Delphi2010 的自带的内存泄漏检测

Delphi检测android mock位置

Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi中用tlistview显示数据库数据

Delphi delete 字符串函数

Delphi 在消息窗口中显示进度条

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

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