7 replies to this topic

[amell2020]

Hola amigo que tal, estoy tratando de usar los componentes Treeview y Pagecontrol.

Tengo Treeview como el menus de cada formulario
PAgecontrol lo quiero este mostrando los fomulario del Treeview.

Yo pense en crear todas pestañas del Pagecontrol y luego ocultarla y con el treeview y mostrando la que quiero y la verdad no pude hacer nada amigos, Alguien me puede dar una ayuda por favor con ejemplo?? se lo agradecere.

[coruxito]

Perdona, pero la verdad que no entendí nada de lo que quieres hacer, sube un ejemplo o describe-lo mejor... Yo me perdí !!! 

[ELKurgan]

Yo creo que si te he entendido. Sería como el explorador de windows, con un TreeView a la izquierda, y que cada vez que pinchas en un nodo se actualiza el marco de la derecha.

Yo lo que suelo hacer es poner a cada nodo del treview un valor en el campo "StateIndex", y ese número se corresponde con la página del tabsheet que quiero mostrar.

Después, al hacer click sobre el Treeview es tan sencillo como poner este código:

delphi

PageControl1.ActivePageIndex := TreeView1.Selected.StateIndex;

Un saludo

Edito: Yo usaría Frames en lugar de Formularios, ya que puedes incrustarlos en cada PageControl sin problemas

[Rolphy Reyes]

Edito: Yo usaría Frames en lugar de Formularios, ya que puedes incrustarlos en cada PageControl sin problemas

Saludos.

Con los formularios también es fácilmente lograble.

Ejemplo.

[cadetill]

Buenas,

Si la aplicación va a tener muchas pantallas, frames o formularios da lo mismo, lo importante es no cargarlos todos de golpe, por lo que yo no tendría ningún PageControl ni nada por el estilo, sino un simple contenedor (un TPanel por ejemplo) e ir cargando y descargando frames/formularios en él.

Si quiere una aplicación MDI....., pues eso, que haga una aplicación MDI

Nos leemos

[amell2020]

amigos yo no estoy usando formulario ni frames yo solo he creado 8  TabSheet y lo mantengo  ocultos para luego seleccionarlo desde Streview y mostarlo con la ayuda del amigo ELKurgan con el codigo:

delphi

PageControl1.ActivePageIndex := TreeView1.Selected.StateIndex;

le agregue esto:

delphi

procedure TBIENVENIDO.sTreeView1Click(Sender: TObject);
begin
SPageControl1.ActivePageIndex := STreeView1.Selected.StateIndex;
SPageControl1.Pages[STreeView1.Selected.Index].TabVisible:= True;
end;

Favor ayuda:
el funciona asi, pero cuando yo quito desde pagecontrol una TabSheet con el boton de eliminar y quiero volver mostrar con el Treeview me da este error al hacer click de nuevo el menu del Treeview
aqui le dejo una imagen para que vean:

Attached Files

•  3605_9e80076d7bbc6597a920aabe8f397d4be812596d.jpg   123.88KB   13 downloads

[ELKurgan]

Pues está claro. Si eliminas un tabsheet como dices en tu contestación, el índice ya no existe y por eso te dice que el número está fuera de los límites.

Yo ni los ocultaría ni los eliminaría. Simplemente dejaría la propiedad TabVisible a False en todos los tabSheets y ya está, EL pageControl, cuando se activa una nueva hoja, es ésta la que se queda visible, quedando las demás ocultas por detrás.

Salvo que no esté entendiendo bien lo que necesitas, y entonces tendríamos que hacer otro enfoque.

Saludos

[amell2020]

esto es lo que busco, Sería como el explorador de windows, con un TreeView a la izquierda, y que cada vez que pinchas en un nodo se actualiza el marco de la derecha