本文整理自网络,侵删。
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 winsoft comport for android usb
Delphi 万年历 程序源码下部分(包括:农历计算、24节气、星期计算、属相)
Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>
更多相关阅读请进入《Delphi》频道 >>