delphi 获取Memo的行数与列数

本文整理自网络，侵删。

 var
Hang,Lie,Num,CharsLine:longint;
begin
Num:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
CharsLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,Num,0);
Hang:=Num+1;//当前行
Label3.Caption :='行数= '+IntToStr(Hang) ;
Lie:=(Memo1.SelStart-CharsLine)+1;//当前列
Label4.Caption :='列数= '+IntToStr(Lie) ; 

相关阅读 >>

Delphi开发桌面图标列表查看程序

Delphi 不可移动的窗体

Delphi memo1 光标跟随鼠标移动

Delphi 调用驱动

Delphi firedac 下的 sqlite [8] - 自定义函数

Delphi webbrowser 实用代码收集

Delphi延时

Delphi webbrowser设置自己定义user-agent

Delphi 配置驱动程序（firedac）

Delphi idhttp.get方法

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

转载请注明出处：木庄网络博客 » delphi 获取Memo的行数与列数