ControlCount可以獲得當前控制元件(可能是Form、Panel,GroupBox)下直接包含的視覺化控制元件總數,透過Controls[i]可以依次訪問第i個控制元件。透過Controls[i]isTButton可以判斷控制元件是不是按鈕。與Controls對應的還有一個ComponentCount和Components。這個是當前視窗下所有控制元件,不管可見還是不可見,也不分直接包含還是透過Panel,GroupBox等間接包含的控制元件。深入解析。button:=TButton.Create(Self);//這裡Self.Components中就包含了button,button.Parent:=Self;//這裡Self.Controls就包含了button對你這個問題,想要知道有多少個Button的程式碼如下:varI:Integer;Count:Integer;beginCount:=0;forI:=0toControlCount-1dobeginifControls[I]isTCustomButtonthenInc(Count);end;ShowMessage("所有從TCustomButton繼承的控制元件且直接放在Form上的控制元件總數為:"+IntToStr(Count));Count:=0;forI:=0toComponentCount-1dobeginifComponents[I]isTCustomButtonthenInc(Count);end;ShowMessage("所有從TCustomButton繼承的控制元件總數為:"+IntToStr(Count));end;
ControlCount可以獲得當前控制元件(可能是Form、Panel,GroupBox)下直接包含的視覺化控制元件總數,透過Controls[i]可以依次訪問第i個控制元件。透過Controls[i]isTButton可以判斷控制元件是不是按鈕。與Controls對應的還有一個ComponentCount和Components。這個是當前視窗下所有控制元件,不管可見還是不可見,也不分直接包含還是透過Panel,GroupBox等間接包含的控制元件。深入解析。button:=TButton.Create(Self);//這裡Self.Components中就包含了button,button.Parent:=Self;//這裡Self.Controls就包含了button對你這個問題,想要知道有多少個Button的程式碼如下:varI:Integer;Count:Integer;beginCount:=0;forI:=0toControlCount-1dobeginifControls[I]isTCustomButtonthenInc(Count);end;ShowMessage("所有從TCustomButton繼承的控制元件且直接放在Form上的控制元件總數為:"+IntToStr(Count));Count:=0;forI:=0toComponentCount-1dobeginifComponents[I]isTCustomButtonthenInc(Count);end;ShowMessage("所有從TCustomButton繼承的控制元件總數為:"+IntToStr(Count));end;