delphi Memo 的当前行、当前列与当前字符


本文整理自网络,侵删。

 procedure TForm1.Memo1Click(Sender: TObject);
begin
Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);
end;

//用 API 实现
procedure TForm1.Memo1Click(Sender: TObject);
var
LineY,LineX: Integer;
begin
LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
LineX := SendMessage(Memo1.Handle,EM_LINEINDEX,LineY,0);
Text := '当前行:' + IntToStr(LineY) + '; ' +                  //0开始
          '当前列:' + IntToStr(Memo1.SelStart - LineX) + '; ' +   //0开始
          '当前字符:' + IntToStr(Memo1.SelStart) + '. ';          //包括#13#10
end;

相关阅读 >>

Delphi webbrowser 操作记要

Delphi fastreport快速安装教程

Delphi 实现数据库读取图片文件

Delphi 调用js字符串编码

Delphi格式化函数format、formatdatetime和formatfloat

Delphi pos的用法

Delphi 的按位运算详解

Delphi 获取listbox1多选的值

Delphi idhttp post json

Delphi 利用csidl打开特殊文件夹

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...