动态创建控件 ,将控件的Parent值设为Panel

解决方案 »

  1.   

    我还要使动态创建的panel上有我第一个panel上的combobox等控件!
      

  2.   

      最好从 TPanel 派生一个类, 在该类的构造函数中动态的创建其他控件(要设置
    控件的 Parent 属性为该派生类, 则其坐标是相对于该派生类的)
      

  3.   

    procedure TForm1.Button2Click(Sender: TObject);
    var
      i: Integer;
    const
      NamePrefix = 'Mypanel';
    begin
      for i := 1 to 100 do
      begin
        TPanel.Create(Self).Name := NamePrefix + IntToStr(i);
        with TPanel(FindComponent(NamePrefix + IntToStr(i))) do
        begin
          Left := 10;
          Top := i * 20;
          Parent := self;
        end;
      end;
    end;