Control de Paginas de un PageControl por medio de un ComboBox

[[nlsgarcia]]

rufo,

Empezado por rufo

...un combobox y en su propiedad de items le puse una lista en el cual quiero hacer que cuando elija una opción de dicha lista me aparezca una ventana de un objeto de pagecontrol...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   i : Integer;

begin

   for i := 0 to PageControl1.PageCount - 1 do
   begin
      ComboBox1.Items.Add('Universe-' + IntToStr(i + 1));
      PageControl1.Pages[i].Caption := 'Universe-' + IntToStr(i + 1);
      PageControl1.Pages[i].TabVisible := False;
   end;

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
   i : Integer;

begin

   for i := 0 to PageControl1.PageCount - 1 do
      PageControl1.Pages[i].TabVisible := False;

   PageControl1.Pages[ComboBox1.ItemIndex].TabVisible := True;

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Selecciona páginas individualmente de un TPageControl por medio de un TComboBox, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.