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 base64加解密

tidhttpresponseinfo 中文乱码问题解决

Delphi判断电脑是否安装了excel

Delphi 枚举resource资源名

Delphi 无法调用cmd nbtstat命令解决办法

Delphi opentextfiledialog用法

Delphi encddecd 加密解密

Delphi xe-xe3下最简单的获取硬盘序列号

cnvcl 组件包

Delphi 程序重新启动自身

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

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