如何让Memo、RichText控件自动出现滚动框(ScrollBar)?(100分)

  • 主题发起人 主题发起人 xcjp
  • 开始时间 开始时间
X

xcjp

Unregistered / Unconfirmed
GUEST, unregistred user!
我想让Memo控件在运行时如果输入的文本超出最大行数,就自动出现滚动框,不知道怎么实现?请高手指教。
 
在memo的onchange事件中:
visible_lines := (memo1.height - 6) div abs(memo1.font.height);
if memo1.lines.count > visible_lines then
memo1.scrlbars := ssVertical
else
memo1.scrlbars := ssNone;
 
我试过了,这种方法不好,焦点老是向上跑。不知道有没有更有效的方法。
 
将memo部件的ScrollBars属性设为ScVertical就可以了
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部