Question

Delphi中能否动态添加控件？

Answer 1

其实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.

Answer 2

varbut:Tbutton;end;begin没有but:=Tbutton.create(self);but.caption:='...';but.left:=120;..but.onclick:=someTnotifyevent;