Realizar una presentación en Delphi

[Peri]

Muchas gracias roman y Neeruu. Intentaré hacer ambas cosas y veré cual de ellas es la mejor. Ya os comento como me ha ido.

[Peri]

He estado probando ambas opciones, y me quedo con los Frames, entre otras cosas porque podemos cambiar la propiedad color de los mismos.

Por otra parte, hay que decir que el código de roman no funciona si no hacemos referencia al módulo del frame en uses.

Me surge dos problemas:

1. ¿Cómo puedo acceder a las propiedades de los controles que ponga en el primer frame desde el segundo frame?
2. Si coloco botones de navegación para ver los frames, no puedo volver hacia atrás para volver a visualizar el frame anterior, puesto que el frame se ha creado y no se puede volver a crear. Por lo tanto es necesario destruir el frame anterior y no sé cómo hacerlo.

Gracias.

[Neeruu]

Hola Peri, sigo sin saber que tipo de presentacion quieres hacer, creo que a lo que te refieres puede ser algo asi como un wizard, donde vas a eligiendo opciones y avanzando!!!!


Bueno mira con los frame no me doy mucha idea como puedes llegar a hacerlo pero manteniendo mi idea te la detallo un poco para ver si esto te sirve!!!

En un Form pones un panel con la propiedad align = bottom, pones un pagecontrol con la propiedad align = client (o como te guste mas el diseño)

en la Pagecontrol creas tantas tab como hojas(por llamarlo asi) tiene tu presentacion; En cada hoja(1 hoja de presentacion = 1 Tab del pagecontrol) agregas lo que quieras pones en ella, pero te recomiendo que siempre pongas un panel como base, osea dentro de cada de Tab pones un panel y sobre ese panel trabajas (ahi si podras cambiar el color)

y asi continuas hasta que todas las tab tienen terminadas las hojas de la presentacion....


Bueno ahora para desplzarme sobre las Tab la idea seria algo asi

En el panel que pusiste primero, junto con la page control,, en ese pones dos botones( anterior, siguiente), cuando inicias la presentacion el boton 'Anterior' debe estar oculto o enabled := False (estetica de diseño)

Ahora si apretamos siguiente en el event onclick podriamos poner algo asi:

Código Delphi [-]
Case PageControl.ActivePageIndex of
   0: begin {Se Apreto por primera ves el Siguiente}
            PageControl.ActivePageIndex = PageControl.ActivePageIndex  + 1; 
            Tbutton(Sender).Caption := 'Siguiente';
            {Estas en la la Tab Inicial y Saltas a la Tab 1}
       end; 
   1: begin {Se Apreto por Segunda ves el Siguiente}
            PageControl.ActivePageIndex = PageControl.ActivePageIndex + 1; 
            Tbutton(Sender).Caption := 'Siguiente';
            {Estas en la la Tab 1 y Saltas a la Tab 2}
       end;
   2: ....
   3: ....
   4: .... 
       {Suponiendo que la tab 6 es la ultima}
   5: begin {Se Apreto por primera ves el Siguiente}
            PageControl.ActivePageIndex = PageControl.ActivePageIndex + 1;
            {Paso a la Tab 6}
            Tbutton(Sender).Caption := 'Finalizar';
       end;
      {y si queremos que se ejecute algo cuando termian la   presentacion ,  suponiendo que va recolectando 
datos ponemos}
   else ShowMessage('Ejecutando');  
end;
btnAnterior.Enabled :=  PageControl.ActivePageIndex <> 0; {Boton Anterior}
btnAnterior.Visible :=  PageControl.ActivePageIndex <> 0;

Para el evento Click del Botton Anterior puedes poner algo asi:

Código Delphi [-]
Case PageControl.ActivePageIndex of
   {0:....; }
    {en la primiera tab nunca esta activo el anterior}
   1: begin {Se Apreto por el boton Anterior}
            PageControl.ActivePageIndex = PageControl.ActivePageIndex - 1;
            {Esto es por si estoy en la ultima tab}
            btnSiguiente.Caption := 'Siguiente';
            {Estas en la la Tab 1 y Saltas a la Tab Inicial}
       end;
   2: .... {Estas en la la Tab 2 y Saltas a la Tab 1}
   3: .... {Estas en la la Tab 3 y Saltas a la Tab 2}
   4: .... {Estas en la la Tab 4 y Saltas a la Tab 3}
end;
btnAnterior.Enabled :=  PageControl.ActivePageIndex <> 0; {Boton Anterior}
btnAnterior.Visible :=  PageControl.ActivePageIndex <> 0;

No se si se entiende mucho lo escribi de memoria
Cualquier duda preguntamey veo en que te puedo ayudar!!!


Saluda Atte Neeruu!!!

[Peri]

Hola Neeruu

Intentaré hacer lo que dices a ver cómo me queda. Sí, en realidad la presentación es tal como has explicado, con dos botones de navegación siguiente y anterior para navergar por las páginas, que serían como los Tab.

Muchas gracias, ya te diré cómo me ha ido.

[Peri]

Bueno Neeruu, no queda del todo mal, es otra forma de hacer lo mismo.

Creo que el primer panel que tú decías que hay que poner, creo que no hace falta. Los otros sí, en caso de tener que cambiar el color de fondo.

Lo que no sé es cómo se puede quitar los tab para que no aparezcan.

Con los frames parece que es más fácil tal como decía roman. Pero a ver si roman me puede ayudar cómo se puede llamar u obtener el valor de una propiedad de algún control colocado en otro frame. He probado todas las combinaciones posibles, pero no lo consigo...

Gracias

[Neeruu]

Hola para quitar los Tab tienes que irte a las tabsheets y (por cada una) poner la propiedad Tabvisible en False!!!!!


Prueba con eso



Saluda Atte Neeruu!!!