我用一個RadioGroup元件，動態創建裏面的button要單選項目的,但如果button很多的時候，不會出現滾動條上下拉動，請問可以在什麽地方設置呢？

據我所知 RadioGroup 元件，不會出現滾動條. 把 RadioGroup元件 置於 TScrollBox 上, 可以達到類似的效果.

我按照您的方法做了，發現沒有效果耶。我把radiogroup放在Form上面動態創建時還可以顯示裏面的button，可是放到ScrollBox裏面以後，button也看不見了。

不是很清楚... button 是 RadioButton ? TButton ? 如果是動態創建 TRadioGroup 的 RadioButton...增加方法應該如下 : RadioGroup.Items.add('xxx')

我用的是 radiogroup1.items.addobject(aaa,bbb);

難！既使做出來，也很醜。 會遮住Caption 使 TRadioGroup 有滾動條並不難。

在
procedure TRadioGroup.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or WS_VSCROLL;
  end;
end;    但這樣不夠的，除了要設定 ScrollInfo 的Range 及接管WM_VSCROLL訊息外。
還需自行設定 Item 的位置。主要是 TRadioGroup 是用平均分配位置的方式，
透過 ArrangeButtons 。    因此也需接管AlignControls 事件並 Override; 像是如下：
procedure TRadioGroup.AlignControls(AControl: TControl; var Rect: TRect);
Const
  ButtonHeight = 15;
var
  I,CaptionH:Integer;
begin
  CaptionH := Canvas.TextHeight('H');
  if AControl is TRadioButton then
     for I:=0 to ControlCount-1 do
       if Controls[I]=AControl then
       begin
         SetWindowPos(AControl.Handle,HWND_TOP
                     ,2,2   CaptionH   (ButtonHeight*I)
                     ,Width-4,ButtonHeight,SWP_NOZORDER or SWP_NOACTIVATE);
         Break;
       end;
end;

因此...... !@#$%^ 除了重新改寫 TRadioGroup外，不會有更好的作法。 建議用 TGroupBox CheckListbox 。頂多將方塊改為選項的方式。 從這裡著手，會比較容易些！ ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/07/22 11:02:02