delphi取得TRichEdit的光标当前位置

本文整理自网络，侵删。

 function GetPosition(ARichEdit: TRichEdit): string
var
iX,iY : Integer;
begin
iX := 0; iY := 0;
iY := SendMessage(ARichEdit.Handle,
EM_LINEFROMCHAR,
ARichEdit.SelStart,0) ;
iX := ARichEdit.SelStart -
SendMessage(ARichEdit.Handle,
EM_LINEINDEX, iY, 0) ;

Result := IntToStr(iY + 1) + ':' + IntToStr(iX + 1) ;
end; 

相关阅读 >>

Delphi文件管理类函数

Delphi跨平台的字符串代码标准

Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …

Delphi 字符串中提取字母数字

Delphi d10.x 并行库ppl编程之ttask

Delphi删除文件夹

Delphi ini文件操作用法

Delphi 十六进制数转换十进制数

Delphi 服务器与客户端的时间同步

Delphi xe5 android在桌面添加快捷方式

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

转载请注明出处：木庄网络博客 » delphi取得TRichEdit的光标当前位置