怎样知道我的TMemo在当前那一行,谢谢!(5分)

  • 主题发起人 主题发起人 gdcqs
  • 开始时间 开始时间
G

gdcqs

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样知道我的TMemo在当前那一行,谢谢!
 
怎样读出MEMO控件的当前行
使用MEMO控件的em_LineFromChar属性
程序如下:
procedure TMyForm.BitBtn1Click(Sender: TObject);
var
iLine : Integer ;
begin
iLine := Memo1.Perform(em_LineFromChar
$FFFF
0);
{ Note: 第一行为 0 }
messageDlg('Line Number: ' + IntToStr(iLine)
mtInformation
[mbOK]
0 ) ;
end;
 
接受答案了.
 
后退
顶部