Delphi 获取memo文本光标的位置

本文整理自网络，侵删。

 
var
  Row, Col: Integer;
begin
  Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
  Col := Memo1.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0);//delphitop.com
  Label1.caption := 'Row= ' + IntToStr(Row+1) + ' Col= ' + IntToStr(Col+1);
 

相关阅读 >>

Delphi 10分钟10行代码开发app(Delphi 应用案例)

Delphi 制作一个内网传播的程序

Delphi 获取窗体坐标触发事件

Delphi 实现英汉字典的转换

Delphi xe android/ios 手势介绍

Delphi 判断dll动态链接库是否可用

Delphi 反转字符串方法2

Delphi 文件占坑法过360查杀

Delphi xe2 - 实现无敌关机键

Delphi image1 图像复制到剪切板

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

转载请注明出处：木庄网络博客 » Delphi 获取memo文本光标的位置