memo控件中，怎样使文本的高度超过这个控件的高度，自动显示下拉框

Question

memo控件中，怎样使文本的高度超过这个控件的高度，自动显示下拉框
如果不超过，则不显示，有没有这个属性

Answer 1

Memo.ScrollBars := ssNone ;
Memo.ScrollBars := ssVerticle;
根据你的代码判断一下长度，然后选择是否显示了，可以写在change的事件中，试一下吧

Answer 2

在设计时,MEMO有一个属性Scrollbars,取这个属性的SSboth

Answer 3

说的有些不清楚，也没有办法改不好意思
  with Memo1 do
  begin
    for i := 0 to 10 do
    begin
      if i < 10 then
        Memo1.ScrollBars := ssNone
      else
        Memo1.ScrollBars := ssVertical;
    Memo1.Lines.Add(Inttostr(i)) ;
    end;
  end;可以把中间的i<10的判断换成你想要的，比如是lines.count》（value）或者用TRect对象获得每一行的高度，用memo的height去除一下，判断是否超出。