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 xe5开发android程序调用电话相关功能(短信息和电话)

Delphi ansicontainstext 是否包含子串

Delphi webbrowser控件属性介绍

Delphi给access创建数据表

Delphi文本加密解密

Delphi firedac获取自增长字段值

Delphi时间相减函数

Delphi 实现程序放放多个进程条

Delphi控制台程序怎么清屏

Delphi图片格式判断

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

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