动态创建Ⅰ

//单独动态创建一个控件；

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  myPanel : TPanel;
begin

   myPanel := TPanel.Create(nil);

 

//关于Create(nil)和Create(Self)的区别是：

 

//create(nil) 代表 object 创建无属主，create(self) 一般代表object归属于当前目标而已，

//create(nil)需要自己释放内存，create(self)由self对象负责释放创建的对象，当Self释放时自动触发释放

with myPanel do
   begin
     Parent := Form1;//如果没有这句，新创建的myPanel将不会显示在窗体上
     Left := 100;//位置信息
     Top := 100;
     Width := 200;//大小信息
     Height := 200;
   end;
end;