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 pchar和array [0..255] of char的区别

Delphi 获取电脑进程网络连接ip端口

Delphi读取radiogroup选中按钮的string文本

Delphi日期函数、日期加减

winapi 字符及字符串函数(15): charnext、charprev

Delphi 透明窗体

Delphi webservice 中采用 tsoapattachment 传输文件

Delphi 流与字符串

minsperday：一天中有多少分钟

Delphi 如何判断字符串是否是有效email地址

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

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