Ver Mensaje Individual
  #2  
Antiguo 14-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
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
Cita:
Yo pense en crear todas pestañas del Pagecontrol y luego ocultarla y con el treeview y mostrando la que quiero
Hola amell2020.

Si no te entendí mal, podrías hacer parecido a:
Código Delphi [-]
...
(* Oculta los todos los TTabSheet de un TPageControl *)
procedure MakeTabSheetInvisible(PageControl: TPageControl);
var
  i: Integer;
begin
  with PageControl do
    for i:= 0 to PageCount-1 do
      Pages[i].TabVisible:= False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MakeTabSheetInvisible(PageControl1); // ocultar al iniciar
end;

...

(* Mostrar selección del TreeView *)
procedure TForm1.TreeView1Click(Sender: TObject);
begin
  MakeTabSheetInvisible(PageControl1); // ocultar 
  PageControl1.Pages[TreeView1.Selected.Index].TabVisible:= True;  // Hacer visible la seleccion del TreeView
end;
Tomá en cuenta que es sólo para darte una idea. El código podría variar de acuerdo como esté diagramado tu TreeView...

Saludos.
__________________
Daniel Didriksen

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