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; 

相关阅读 >>

如何将string变量赋值给pchar变量

Delphi7判断字符是否是数字

Delphi 拖动form上的图片，form一起动

Delphi 建立快捷方式的函数: createshortcut

Delphi根据网络链接截取域名

Delphi获取系统进程和路径

Delphi 映像劫持编辑器

Delphi 如何比较两个二维数组是否相等

Delphi 10进制数与33进制数的转换

Delphi 根据文件扩展名判断文件类型函数写法

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

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