文件名称：Delphi 7.0 得到Memo中的可见行数.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 10:57:38
Delphi源码-界面编程
Delphi 7.0 获取Memo控件中字符的可见行数，没讲 时在Memo控件中随便粘贴入一些字符，单击窗口中的“检测可见行数”按钮，即可得到该文本框控件中字符的行数，将这一系列执行命令集成在delphi的按钮监听事件中，编写如下代码即可： function LinesVisible(Memo: TMemo): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand := GetDC(Memo.Handle); try GetTextMetrics(Hand, TM); Memo.Perform(EM_GETRECT, 0, longint(@Rect)); tempint := (Rect.Bottom - Rect.Top) div Memo.Font.Height div -1; finally ReleaseDC(Memo.Handle, Hand); end; Result := tempint; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin bitbtn1.Caption:='可见[' IntToStr(LinesVisible(Memo1)) ']行'; end; 程序运行效果请参见截图所示，完整源码请下载。
【文件预览】：
codesc.net
----Memo()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(11KB)
--------Project1.cfg(372B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)