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