如何可以簡單地把十個 Button 的 visible 設為 false ?? button1.visble:=false; button2.visble:=false; ... button10.visble:=false; 不要這樣打的喔 !!

引言: 如何可以簡單地把十個 Button 的 visible 設為 false ?? button1.visble:=false; button2.visble:=false; ... button10.visble:=false; 不要這樣打的喔 !!

Search FindCompoment, 加上型別判別或TAG值判別

Hi vernon ,    將十個 Button 放在同一個 Panel(CoolBar 或 ToolBar 也可以) 上，再 Panel1.Visible := False;  即可，即只控制 Button 的 Parent 的 Visible 屬性   ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

var i:integer; for i:= 1 to 10 do begin Tbutton(FindCompoment("button" inttostr(i))).visble:=false; end;

vernon 您好 :

var
  i:integer;      for i:=ComponentCount-1 downto 0 do
  begin
    if Components[i].ClassType = TButton then
      (Components[i] as Tbutton).visble:=false;
  end;

另一種寫法 .. 關公面前耍大刀了 ...

引言: vernon 您好 :

var
  i:integer;      for i:=ComponentCount-1 downto 0 do
  begin
    if Components[i].ClassType = TButton then
      (Components[i] as Tbutton).visble:=false;
  end;

另一種寫法 .. 關公面前耍大刀了 ... >< face="Verdana, Arial, Helvetica"> 我的作法是 var i : integer; for i := 0 to ComponentCount-1 do if (component[i] is Tbutton) then // (component[i] as Tbutton).enable := false; (component[i] as Tbutton).visible := false