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
[-]
...
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); end;
...
procedure TForm1.TreeView1Click(Sender: TObject);
begin
MakeTabSheetInvisible(PageControl1); PageControl1.Pages[TreeView1.Selected.Index].TabVisible:= True; 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.