动态创建控制问题

搞定了。

先动态创建GROUPBOX,然后再动态创建button,将button的parent设置成GROUPBOX
procedure tForm_Main.SB_BUT(sender:tobject;BM:string;
             BW,BH,BL,BT,B_Tag,L_C:integer;GB:Tgroupbox);
var New_But:tRZbutton;
begin
 new_but:=tRZbutton.Create(self);
 new_but.Parent:=GB;
 new_but.HotTrack:=true;
 new_but.Color:=clBTNFACE;
 NEW_BUT.Font.Color:=clBlue;
 {IF L_C=0 THEN
 new_but.Color:=clBtnFace
 ELSE new_but.Color:=clLIME;}
 New_but.Alignment:=taCenter;
 New_but.Caption:=bm;
 New_but.Width:=BW;
 New_but.Height:=BH;
 New_but.Left:=BL;
 New_but.Top:=BT;
 new_but.Tag:=b_tag;
 new_but.Font.Height:=18;
 New_but.Font.Name:='Times New Roman';
end;