delphi 获得Memo、RichEdit的光标位置

本文整理自网络，侵删。

 delphi 获得Memo、RichEdit的光标位置

procedure TForm1.Button1Click(Sender: TObject);
var Row, Col : integer;
begin
Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
Col := CustEdit.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0);
Edit1.Text:='行,列:'+IntToStr(Row)+','+IntToStr(Col);
end; 
 

相关阅读 >>

Delphi webbrowser1使用进度条查看浏览器状态

Delphi中message消息的使用方法

Delphi百度云服务平台获取token

Delphi遍历文件目录

Delphi 时间与字符串

Delphi 双击关闭pagecontrol中的一个分页

Delphi 判断安卓app第一次启动

Delphi 一句话获取文件的最新修改时间

Delphi xe8中的正则表达式提取日语（平假名，片假名，汉字）

Delphi2007 读取得unicode文本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获得Memo、RichEdit的光标位置