Delphi中能否动态添加控件?

 我来答
匿名用户
2013-10-22
展开全部
其实Delphi里有不下5种的解决办法,因为Component都为对象,其内存分派都在全局堆长进行,而不是在栈中,所以简单的办法就是用一个Tlist保护你的动态生成的Componnet, 用完再释放,例如:var fList : TList function CreateObj(aOwner: TComppentn) : TComponent; begin Result := TSpeedButton.Create(aOwner); Result.Parnet := ..; ... porcedure CreateButtonArray(aOwner : TComponent); var i : integer; begin for i := 0 to 100 do fList.Add(CreateObj(aOwner)); End; procedure FreeObj; var begin if fList <> nil then for i := 0 to fList.Count do ...... TSpeedButton(fList[i]).free; End; i : integer; initialization End; fList := TList.Create; finalization FreeObj;End.
匿名用户
2013-10-22
展开全部
varbut:Tbutton;end;begin没有but:=Tbutton.create(self);but.caption:='...';but.left:=120;..but.onclick:=someTnotifyevent;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式