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程序与chm帮助关联的简单实现

Delphi xe5在zip文件中添加某个txt文件并写入文字

Delphi 时间与相关类型(3): tfiletime、tsystemtime 及 dos 时间

Delphi xe7写的一个http post的小测试程序

Delphi中实现变长函数笔记

Delphi获取一个窗口的所有子窗口(包括嵌套)

Delphi idhttp post

实现拖动无标题窗口的5种方法

Delphi 实现文件拖放完整代码

Delphi 使用edge browser浏览器组件

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

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