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 xe 如何实现("再按一次退出") 然后退出程序

Delphi源码简单的实现粘贴复制代码

Delphi 如何确定access数据库中存在某一个已知名的表

Delphi android 获取通�记录

Delphi 通过wmi获取u盘硬件特征码

Delphi 如何从dll中检索导出函数的列表

Delphi bytestofile

windows 编程 窗体生成的过程

Delphi格式化输出函数

Delphi 中判断windows系统是否是64位系统

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

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