Delphi 7.0 得到Memo中的可见行数.rar

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; 　　程序运行效果请参见截图所示，完整源码请下载。