delphi的control,如button,textedit等等..係咪無得好似vb咁array架,因為如果有,就可以用array去loop的button(s)去set佢的property,如果吾得,就要每句寫...咁係點呢?

Hi BorlandUser,    不太了解，猜測的

procedure TForm1.Button2Click(Sender: TObject);
var
    I : Integer;
begin
    For I := 0 to Self.ComponentCount - 1 do
        BEGIN
            IF (Self.Components[I].ClassNameIs('TButton')) THEN
                BEGIN
                    TButton(Self.Components[I]).Caption := 'Component'   IntToStr(I);
                END;
        END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

這個方法在vb也可實行到,但vb還可以這樣的.. button(0),button(1),button(2),... 咁所以可以咁樣... for n=0 to 2 button(n).enabled=false next n 但係係delphi世界係咪button係做吾到同個名字呢?即係用array去儲.. 如果唔得,咁如果我有10個button,其中5個係要同時disable,咁我要寫5句code, button1.enabeld=false; button2.enabled=false; 如此類推,但如果用form.component的方法,咁我都要寫5個if..else去identity那些button雖要enabled=false

 procedure TFmB603.Button2Click(Sender: TObject);
var
 T:array[0..10] of Tbutton;
begin
  inherited;
  try
    T[0]:=Tbutton.Create(nil);
    ...
  finally
    T[0].Free;
    ...
  end;
end;

這樣就可以用Loop 訪問T[i]...,

------
星期一,二...無窮迴圈＠＠

這個方法是動態創告button嗎?這不是和vb一早define左有一係列的array of button,然後loop住黎set佢地的property嗎?