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源码获取网络图片缓存的地址

Delphi insert 插入一个字符(串)

Delphi sql 语句(常见) 新建,删除,修改表结构

Delphi 文件查找findfirst,findnext,findclose

Delphi 串口控制继电器

Delphi word转pdf两种方法

Delphi 查看内存数据的函数

floattostr 将“浮点型”转换成“字符型”

Delphi 把mp3做背景音乐

Delphi 四舍五入取整函数

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

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