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 andorid应用程序检查wifi有效还是无效

Delphi int64 与 currency

Delphi firedac 连接access mdb数据库的方法

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi 得到字符串拼音首字母

tidhttpresponseinfo 中文乱码问题解决

Delphi中使用directx截屏函数

Delphi xe5 json

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi生成32位随机数

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

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