如何知道PageControl控件当前页中有多少个控件?

Question

  页中控件是程序创建的.
  ShowMessage(inttostr(PageControl1.ActivePage.PageControl.ControlCount)); //显示多少页
 
   ShowMessage(inttostr( PageControl1.ActivePage.ControlCount-1)); //这样得不到有多少个控件

Answer 1

没错啊
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Label1:TLabel;
    Edit1:TEdit;
    Button1:TButton;
    Memo1:TMemo;
begin
  Label1:=TLabel.Create(Self);
  Label1.Caption:='Label1';
  Label1.Left:=10;
  Label1.Top:=10;
  Label1.Parent:=TabSheet1;
  ShowMessage(IntToStr(PageControl1.ActivePage.ControlCount));
  Edit1:=TEdit.Create(Self);
  Edit1.Text:='Edit1';
  Edit1.Left:=10;
  Edit1.Top:=25;
  Edit1.Parent:=TabSheet1;
  ShowMessage(IntToStr(PageControl1.ActivePage.ControlCount));
  Button1:=TButton.Create(Self);
  Button1.Caption:='Button1';
  Button1.Left:=10;
  Button1.Top:=45;
  Button1.Parent:=TabSheet1;
  ShowMessage(IntToStr(PageControl1.ActivePage.ControlCount));
  Memo1:=TMemo.Create(Self);
  Memo1.Text:='Memo1';
  Memo1.Left:=10;
  Memo1.Top:=70;
  Memo1.Parent:=TabSheet1;
  ShowMessage(IntToStr(PageControl1.ActivePage.ControlCount));
end;end.

Answer 2

ShowMessage(IntToStr(PageControl1.PageCount)); //显示多少页
 
   ShowMessage(inttostr( PageControl1.ActivePage.ControlCount)); //有多少个控件