首页 > 代码库 > 动态创建Ⅰ

动态创建Ⅰ

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

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;