常规参数
文章标题：
权重：
文章摘要：
这样：function TForm1.MemoLinesShowing(memo: TMemo): integer;varR: TRect;beginMemo.Perform(EM_GETRECT, 0, Longint(@R));Result := (R.Bottom - R.Top) div Canvas.TextHeight('XXX');end;问题是，TForm 和TMemo 需要用同样的字体。如果不同，可以用以下代码：fu
关键字：
显示 计算 the DC end context integer TMemo font old
管理密码: