这个调用为什么出错呢？？？在线等。。。。。(30分)

T

TC_2006

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #1

我有一个function用来清除面板（panel）上的控件的Text,如下：
procedure TfrmMain.ResetForm(PanelObject : TPanel);
var
i : integer;
begin
for i := 0 to PanelObject.ComponentCount - 1 do
begin
if PanelObject.Controls is TEdit then
begin
(PanelObject.Controls as TEdit).clear;
(PanelObject.Controls as TEdit).Enabled := True;
(PanelObject.Controls as TEdit).Color := clwindow;
end;
end;
end;
然后我在一个Button的单击事件上调用它
ResetForm(panel1);
可是走到PanelObject.ComponentCount 的时候，componentCount竟然为0，为什么呢？？

 

S

sherryxjqiao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #2

应该把Controls改成Components吧，我一直都用这样的

 

Z

ZBJ2001_KF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #3

我刚完成一个，用PANEL.CONTROLCOUNT-1 测试通过了

 

T

tianlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #4

路过帮顶

 

T

TC_2006

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #5

谢谢。

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #6

ZBJ2001_KF说的没错

procedure TFrmmain.ResetForm(PanelObject: TPanel);

var
i : integer;
begin
for i := 0 to PanelObject.Controlcount-1 do
begin
if PanelObject.Controls is TEdit then
begin
(PanelObject.Controls as TEdit).clear;
(PanelObject.Controls as TEdit).Enabled := True;
(PanelObject.Controls as TEdit).Color := clwindow;
end;
end;
end;

 

B

bulyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-30

• #7

很简单，只要将“for i := 0 to PanelObject.ComponentCount - 1 do”改成“for i := 0 to PanelObject.ControlCount - 1 do”即可。