我动态创建一些控件,控件个数随机怎样能使每次创建的控件都居中呢,并且窗体大小随控件个数动态变化题外话:    我朋友用我的账号发了一个广告贴,就扣了我五分信誉
    可是什么招聘、什么有血、什么裤衩的贴子怎么都没问题?    不明白???

解决方案 »

  1.   

    1.控件创建以后位置你可以自己调(根据Left,Top,Height,Width等属性)
      for Example:
      procedure AddCheckBox(PageNo,No:integer;Name,Caption:String;Checked:Boolean);
       begin
           CheckBox:=TCheckBox.Create(Self);
           Checkbox.Parent:=pgform.Pages[PageNo];
           CheckBox.Name:='Chb'+Name;
           CheckBox.Caption:=Caption;
           CheckBox.Checked:=Checked;
           CheckBox.Width:=100;
           CheckBox.Alignment:=taRightJustify;
           //第一个CheckBox的Top值       //No以0开始
           if No Mod 2=0 then
           begin
              lnleft:=10;
              lnTop:=lnTop+30;
           end   
           else
           begin
               lnleft:=230;       end;
           CheckBox.Left:=lnLeft;
           CheckBox.Top:=lnTop;
         Self.Height:=lnTop+50;
       end;
      

  2.   

    以上问题我自己解决了,但又有新问题,麻烦大家了!!!我程序中的窗体无法动态改变大小,代码如下:    bb0:=Tbb.Create(self);   // bb为窗体名称
        bb.Height:=strtoint(edit3.Text)
        bb.Width :=strtoint(edit4.Text)
        bb0.ShowModal ;我同事用同样的代码可以实现,可我的不行,是不是需要设置什么属性呢?