Fórum Dúvida no Page Control #372779

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
vCont: integer;
begin
        vCont:= ComboBox1.ItemIndex;

        if vCont <= 0 then exit;

        with PageControl1 do
        begin
                for I:= 0 to vCont do
                begin
                        with TTabSheet.Create(Self) do
                        begin
                                PageControl := PageControl1;
                                TabVisible := (PageIndex mod 2 = 0);
                                Caption := ´PageIndex: ´ +
                                IntToStr(PageIndex) + ´  TabIndex: ´ +
                                IntToStr(TabIndex);
                        end;
                end;
        end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
vCont: integer;
begin
        vCont:= 2;

        if vCont <= 0 then exit;

        with PageControl1 do
        begin
                for I:= 0 to vCont do
                begin
                        with TTabSheet.Create(Self) do
                        begin
                                PageControl := PageControl1;
                                TabVisible := (PageIndex mod 2 = 0);
                                Caption := ´PageIndex: ´ +
                                IntToStr(PageIndex) + ´  TabIndex: ´ +
                                IntToStr(TabIndex);

                                with TButton.Create(Self) do
                                begin
                                        Parent:= PageControl.Pages[I];
                                        Top:= 100;
                                        Left:= 10;
                                        Caption:= ´Ok´;
                                end;
                                with TButton.Create(Self) do
                                begin
                                        Parent:= PageControl.Pages[I];
                                        Top:= 100;
                                        Left:= 100;
                                        Caption:= ´Cancelar´;
                                end;
                                with TEdit.Create(Self) do
                                begin
                                        Parent:= PageControl.Pages[I];
                                        Top:= 10;
                                        Left:= 10;
                                        Text:= ´Digite o texto aqui´;
                                end;
                        end;
                end;
        end;

end;