首页 > 代码库 > 动态创建Ⅰ
动态创建Ⅰ
//单独动态创建一个控件;
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;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。