如何在delphi中控制大量的相同控件

Question

var rb:TradioButton;
    i:integer;
begin
  for i:=1 to 8 do
  begin
    rb:=TradioButton(FindComponent('rb'+IntToStr(i)));
    if rb<>nil then
      rb.Visible:=False;
  end;
这是对rb1..rb8控制的列子
不知你想实现什么功能上qq
17290919
我为你解答!

Answer 1

for i=0 to GroupBox1.componentCount
        do GroupBox1.component[i].checked

Answer 2

很简单：在FORM1中假若有大量控件，那么基中有一些是相同的这时可以利用
自身数组实现
Form1.Components[Index: Integer]: TComponent
实现如下：
var
i:integer;
with Form1 do
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] Is Tedit then
    begin
      ...
    end
    else 
    if Components[i] Is TButton then
     ...
  end;
end;
以上举例为有大量Tedit或TButton控件，其它控件类似处理

Answer 3

就是在程序中有很多的Edit控件(1-100)
我药用到它的text属性,可是不能让我每用一个
都要写上 Edit1.Text:=....吧
如果能够用数组之类的方法给编号
那么不就可以 for i:=1 to 100 do
                 Edit[i].text:=i;

Answer 4

多个控件可以使用一个事件用Sender来判断
比如十个button用一个Onclick事件，把他们的tag设置成0到9在Onclick事件里面判断TButton(Sender).tag来做相应处理

Answer 5

假设程序中有若干个Tedit控件，用如下方法可以将该类控件过滤出来：
var
  i: Integer;
begin
  with Form1 do
  begin
    for i := 0 to ComponentCount do
    begin
      if Componts[i] Is Tedit then
      begin
        已经过滤出来了，可以做你想要的处理啊，简单吧！...
      end;
    end;
  end;
end;