rufo,
Cita:
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
public
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.