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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询