關於控件數組，比較初級，請見諒!(30分)

杜

杜風

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #1

For j:=0 to FlatPanel4.ControlCount -1 do
Begin
if (FlatPanel4.Controls.ClassName='TLabel') then
begin
showmessage('ok');
FlatPanel4.Controls.Free;
end;

For j:=0 to FlatPanel4.ComponentCount -1 do
Begin
if (FlatPanel4.Components.ClassName='TLabel') then
begin
showmessage('ok');
FlatPanel4.Components.Free;
end;

1。以上兩種方法都不能清除FlatPanel4上動態建立的'TLabel'，請教該怎麼寫？
2。Components，Controls有什麼區別？

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #2

》For j:=0 to FlatPanel4.ControlCount -1 do
》Begin
》if (FlatPanel4.Controls.ClassName='TLabel') then
你为什么用j循环而循环体内却用i？

 

杜

杜風

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #3

謝謝，我太粗心了，但第二個問題了，
還有用‘FREE’是不是就可以清除控件了

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #4

是的。
你自己用create方法创建的，你自己负责释放(free)，
设计期放到窗口上的，程序会自己释放。