本文整理自网络,侵删。
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 一组数据,按由大到小进行排序,并输出最大值与最小值
更多相关阅读请进入《Delphi》频道 >>