本文整理自网络,侵删。
var Row, Col: Integer;begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := Memo1.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0);//delphitop.com Label1.caption := 'Row= ' + IntToStr(Row+1) + ' Col= ' + IntToStr(Col+1);
相关阅读 >>
Delphi [函数] unicode 检查字符串是否含中文字
Delphi xe5 程序中标识win max android ios程序代码分别实现
更多相关阅读请进入《Delphi》频道 >>