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 调用外部程序并等待其运行结束

Delphi 一组数据，按由大到小进行排序，并输出最大值与最小值

Delphi listview排序

Delphi cef4 忽略不安全网站

Delphi android 保持唤醒状态

Delphi fmx关闭安卓程序

Delphi idhttp上传图给asp完美解决

Delphi 开启内存泄漏报告模式

Delphi 判断正在运行的设备是iphone还是ipad

idhttp获取文件大小的代码

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

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