在memo控件中,想实现自动选择当前行文本功能,本以为应该比较简单,网上一查,确实有这样一段程序,代码如下:
procedure SelectMemoLine(Memo : TCustomMemo) ;
var
Line : integer;
begin
with Memo do
begin
Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
SelStart :
在memo控件中,想实现自动选择当前行文本功能,本以为应该比较简单,网上一查,确实有这样一段程序,代码如下:
procedure SelectMemoLine(Memo : TCustomMemo) ;
var
Line : integer;
begin
with Memo do
begin
Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
SelStart :