stringgrid 的单元格内输入内容过多的话，怎么使它右边显示滚动条的滑块呢？ 这个怎么实现？？？

[老白猫]

RT，或者用memo的话，那怎么控制memo里的内容不多时右边没有滑块，当内容超出编辑框时，自动显示出滚动条来。

[缘中人]

用memo可以自己控制。

ShowScrollBar( Memo1->Handle, SB_HORZ, true );  

ShowScrollBar( Memo1->Handle, SB_HORZ, false);  

[老白猫]

嗯？ 怎么控制，这两句代码怎么写在程序里呢？
这两句代码除了true false 都一样？？？

[老白猫]

不是，问题是我要设定何时显示与隐藏滚动条啊 您这个只是设定了显示与隐藏，条件怎么判断呢？？

[缘中人]

写在OnChange里。

void __fastcall TForm1::Memo1Change(TObject *Sender)
{
   String s;
   int  CurrentLine;
   CurrentLine = SendMessage(Memo1->Handle, EM_LINEFROMCHAR, Memo1->SelStart, 0);
   s = Memo1->Lines->Strings[CurrentLine];
   if( s.Length()> 30   )
      ShowScrollBar( Memo1->Handle, SB_HORZ, true );
   else
      ShowScrollBar( Memo1->Handle, SB_HORZ, false );
}

[老白猫]

这个可运行成功 稍明白了。 现在我是要SB_VERT ， 竖直的滚动条，怎么没有s.High啊， 这又怎么表示呢？

[老白猫]

额 这个s是指输入的内容，没法显示高度，， 那怎么写竖直的呢 望大侠贴上代码教教我~

[缘中人]

垂直滚动条是 SB_VERT

[缘中人]

   //垂直滚动条   
   if( Memo1->Lines->Count>25 )
      ShowScrollBar( Memo1->Handle, SB_VERT, true );
   else
      ShowScrollBar( Memo1->Handle, SB_VERT, false );   

[老白猫]

深深谢过，了然了