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) ; 

相关阅读 >>

xe7提示找不到sharedactivitycontext函数

Delphi idhttp的基本用法

Delphi 让程序支持外来文件拖放的单元文件

Delphi base24编码解码

Delphi多线程学习：多线程数据库查询（ado）

wmi远程访问问题解决方法

Delphi 长文件路径转换短文件路径

Delphi 数据库获取所有用户名

Delphi设置dbgrid每列自动居中

Delphi 临时文件路径（支持安卓、ios）

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

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