Delphi 7.0 获取Memo控件中字符的可见行数，没讲 时在Memo控件中随便粘贴入一些字符，单击窗口中的“检测可见行数”按钮，即可得到该文本框控件中字符的行数，将这一系列执行命令集成在delphi的按钮监听事件中，编写如下代码即可： function LinesVisible(Memo: TMemo): integer; Var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect; tempint : integer; begin Hand :=
