Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-06-2015
rufo rufo is offline
Miembro
 
Registrado: jul 2006
Posts: 240
Poder: 18
rufo Va por buen camino
Smile Control de Paginas de un PageControl por medio de un ComboBox

Buenas tardes a todos antes que nada me es grato volver con ustedes en el cual es la mejor comunidad que he conocido, bueno espero que me ayuden con el siguiente problemita que tengo, resulta que tengo un combobox y en su propiedad de items le puse una lista en el cual quiero hacer que cuando elija una opcion de dicha lista me aparesca una ventana de un objeto de pagecontrol pero no logro visualizar cada opcion que pongo a lo mejor lo estoy haciendo mal, les pongo a continuacion el codigo que estoy usando y de antemano gracias.
Código Delphi [-]
procedure Tprincipal3.ComboBox1Change(Sender: TObject);
begin
      tdeposito.Visible:=true;
  case ComboBox1.ItemIndex of
     1:   factura.Visible:=true;
     2:   prestamo.Visible:=true;
     end;
  end;

Nota: tdeposito es el objeto Tpagecontrol y factura, prestamo son tabsheet.
Responder Con Cita
  #2  
Antiguo 07-06-2015
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
¿Podrías explicarlo con mucho mayor detalle? Por favor.
Responder Con Cita
  #3  
Antiguo 07-06-2015
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Los items del combobox empiezan en 0, 1, 2 etc...
Saludos
__________________
Siempre Novato
Responder Con Cita
  #4  
Antiguo 07-06-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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
    { 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.

Última edición por nlsgarcia fecha: 07-06-2015 a las 05:04:32.
Responder Con Cita
  #5  
Antiguo 07-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rufo.

Como te comenta Al González, al no ser específico hay muchas formas de interpretar tu consulta.

Un ejemplo con otra opción:
Código Delphi [-]
...
type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    PageControl1: TPageControl;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
  public
  end;
...

implementation

const
  NTABSHEETS = 5;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  tab: TTabSheet;
begin
  for i := 1 to NTABSHEETS do
  begin
    ComboBox1.Items.Add(Format('%s%d', ['Edit', i]));
    tab := TTabSheet.Create(Self);
    tab.PageControl := PageControl1;
    tab.Name    := Format('%s%d', ['TabSheet', PageControl1.PageCount]);
    tab.Caption := tab.Name;
    tab.Visible := True;
    tab.Show;
    with TEdit.Create(Self) do
    begin
      Name    := Format('%s%d',['Edit', i]);
      Height  := 21;
      Width   := 75;
      Left    := 10;
      Top     := 30;
      Parent  := tab;
    end;
  end;
  ComboBox1.ItemIndex  := 0;
  PageControl1.TabIndex:= 0;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with TComboBox(Sender) do
    if ItemIndex <> -1 then
      PageControl1.TabIndex := ItemIndex;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
varias paginas con PageControl novato_erick Varios 6 07-11-2011 23:27:18
grabar las paginas de mi navegador en un combobox jeremiselxi Internet 2 19-10-2008 13:35:53
Control ComboBox Esau .NET 1 02-03-2007 18:37:01
CONTROL+TAB en PAGECONTROL dentro de MDI-CHILD amadis OOP 2 11-08-2005 09:09:40
Preguntas sobre Control PageControl y otras silviodp Varios 3 31-12-2003 06:14:21


La franja horaria es GMT +2. Ahora son las 07:01:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi