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解决dll注入桌面卡的问题

paramstr返回运行当行程序的某个参数

Delphi setformfullscreen()窗体全屏显示

Delphi xe5 中tmemo控件的应用――for android

Delphi 切换开关 toggleswitch1

Delphi x秒生成大量垃圾字符

Delphi systemparametersinfo 用法

Delphi xe10实现移动端支付宝、微信支付接口

Delphi之autorun(复制自身+循环扫描)

Delphi 获取image.picture.data的数据

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

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