急~请问如何判断memo控件里的内容超过了框架篇幅，需要用scrollbar？

Question

delphi7.
memo中原来没有scrollbar，直接输入文本。
如何使得程序可以判断memo控件里的内容超过了一版的篇幅，需要用scrollbar来帮助查看？不胜感激

Answer 1

晕,memo不是自带有scrollBar的嘛
它默认是没有打开的.你把ScrollBars属性设置一下就OK了呀
搞这么复杂

Answer 2

给你一个关于LIstBox的，看看是不是有用
MaxDeptWidth := 0;
for i := 0 to ListBoxDept.Items.Count - 1 do
  if MaxDeptWidth < ListBoxDept.Canvas.TextWidth(ListBoxDept.Items.Strings[i])    then
   MaxDeptWidth := ListBoxDept.Canvas.TextWidth(ListBoxDept.Items.Strings[i]);
SendMessage(ListBoxDept.Handle, LB_SETHORIZONTALEXTENT, MaxDeptWidth+2, 0);