Ver Mensaje Individual
  #6  
Antiguo 02-06-2008
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 512
Reputación: 19
Neeruu Va por buen camino
Cool Realizar una presentación en Delphi

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!!!

Última edición por Neeruu fecha: 02-06-2008 a las 15:02:45. Razón: Aclaracion de Salto de Tab's
Responder Con Cita