Ver Mensaje Individual
  #2  
Antiguo 29-08-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.114
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

¿Qué es eso de que tenga más pestañas? ¿Quieres decir que quieres añadir más pestañas (páginas) a un "TPageControl"? Si te refieres a esto, pues añade las pestañas que te sean precisas de este modo:

Código Delphi [-]
var
   nTab: TTabSheet;
 begin
   nTab  :=  TTabSheet.Create(Self);
   nTab.Caption := 'ClubDelphi.com';
   nTab.PageControl := PageControl1;
 end;

Con un "TTabControl" la cosa es "más sencilla", pues vale con la siguiente instrucción para añadir una nueva pestaña al mencionado componente:

Código Delphi [-]
 begin
   TabControl1.Tabs.Add('ClubDelphi.com');
 end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita