5,927
社区成员
发帖
与我相关
我的任务
分享寻找控件中的按钮，并置成False
TPanel中有很多动态生成的按钮，遍历整个TPanel找到按钮并置成false
for i:=0 to ButtonParent.Controlcount-1 do
begin
if (ButtonParent.Controls[i] is TButton) then
begin
TButton(ButtonParent.Components[i]).Enabled := False;
end;
end;
我这段代码有什么问题？
界面中有10几个控件，TButton有6个
但是报List index out of bounts(3)的错误？
for i:=0 to ButtonParent.Controlcount-1 do
begin
if (ButtonParent.Controls[i] is TButton) then
begin
TButton(ButtonParent.Components[i]).Enabled := False;
end;
end;
我这段代码有什么问题？
界面中有10几个控件，TButton有6个
但是报List index out of bounts(3)的错误？
...全文
请发表友善的回复…
发表回复
oloveuxyz 2011-02-25
- 打赏
- 举报
TButton(ButtonParent.Components[i])改为 TButton(ButtonParent.Controls[i])
lw19860412 2011-02-25
- 打赏
- 举报
能告诉我Components和Controls的区别吗
iranjn 2011-02-25
- 打赏
- 举报
谢谢，问题解决
火龙岛主 2011-02-25
- 打赏
- 举报
for i:=0 to ButtonParent.Controlcount-1 do
begin
if (ButtonParent.Controls[i] is TButton) then
begin
TButton(ButtonParent.Controls[i].Enabled := False;
end;
end;
hongqi162 2011-02-25
- 打赏
- 举报
遍历的是Control使用的是Components
bdmh 2011-02-25
- 打赏
- 举报
改Controls[i]，Components和Controls不是一个东西
