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 自带rest调试工具 restdebugger 用法

Delphi 删除cookies及上网记录

Delphi开发的服务中调用指定应用程序

Delphi winsoft comport for android usb

Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)

Delphi 2009 中的泛型

Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>

Delphi 让程序支持外来文件拖放的单元文件

Delphi中clientdataset的用法小结

Delphi 禁止窗口移动

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...