想问下关于self.component和如groupbox1.Controls的在遍历控件时相同与不同之处。
顺便还想再问下遍历不同控件时的顺序。比如form中有edit,label,checkbox,radiobutton等等的组建,我遍历它们时的顺序是?procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 0 to self.ComponentCount - 1 do
begin
if self.Components[i] is Tedit then
begin
self.ListBox1.Items.Add(Tedit(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is TSpeedButton then
begin
self.ListBox1.Items.Add(TSpeedButton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tbutton then
begin
self.ListBox1.Items.Add(Tbutton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tradiobutton then
begin
self.ListBox1.Items.Add(Tradiobutton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tcheckbox then
begin
self.ListBox1.Items.Add(Tcheckbox(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
end;end;
顺便还想再问下遍历不同控件时的顺序。比如form中有edit,label,checkbox,radiobutton等等的组建,我遍历它们时的顺序是?procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 0 to self.ComponentCount - 1 do
begin
if self.Components[i] is Tedit then
begin
self.ListBox1.Items.Add(Tedit(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is TSpeedButton then
begin
self.ListBox1.Items.Add(TSpeedButton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tbutton then
begin
self.ListBox1.Items.Add(Tbutton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tradiobutton then
begin
self.ListBox1.Items.Add(Tradiobutton(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
if self.Components[i] is Tcheckbox then
begin
self.ListBox1.Items.Add(Tcheckbox(self.Components[i]).Name);
self.ListBox2.Items.Add(IntToStr(i));
end;
end;end;
解决方案 »
- DBGRID如何实现双击title间的空隙自动调整列宽?
- help!!!
- 一个指针的问题,请大家看看!
- 拿分啦!高分,求解决针打时走纸的办法!在线等!Up有分
- 请问用TQuery控件在进行数据库数据输入时,如何使新输入数据在表的最后
- 如何获得一张图片的大小和文件名,有这样现成的函数吗?
- update语句应该怎么写?(access)?
- 哪有支持delphi开发的isapi和cgi的免费空间!速度且较快!100分送上!不够再要!
- 这个问题真的没有人搞得定吗?!
- 哪里有全中文(最好是像FASTREPORT一样由公司开发并能提供升级服务)报表打印控件下载或出售?
- 关于BroadcastSystemMessage?
- 初为人父,激动无比,散分庆祝!
Controls:Lists all child controls. 所有的parent是自己的控件比如你在panel上放一个button,那么button的owner是窗体,button属于窗体的components,不属于panel的components,但是属于panel的controls。