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 getsessionusername通过会话id得到会话名称

Delphi执行cmd命令和bat文件

Delphi ttask无法传递参数的一个解决方案

Delphi rs232c串行通讯接口的应用

Delphi 圆角panel

Delphi 递归获取文件夹大小

Delphi中禁止webbrowser右键的方法

Delphi 锁住listview防止刷新

Delphi sendmessage postmessage 原理和区别

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

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