本文整理自网络,侵删。
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 的webbrowser如何全选并复制浏览器上的文字
Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置
更多相关阅读请进入《Delphi》频道 >>