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 daysbetween 用法片段

Delphi 如何检查字符串是否为数字

Delphi 18位身份证号码的校验

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

Delphi中使用汇编(关于pos函数的问题)

Delphi 数组定义

Delphi 锁定鼠标移动范围

Delphi中exit,abort,break,continue的区别介绍

Delphi savelog 方便的记录日志

Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的

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

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