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
PageControl.ActivePageIndex = PageControl.ActivePageIndex + 1;
Tbutton(Sender).Caption := 'Siguiente';
end;
1: begin
PageControl.ActivePageIndex = PageControl.ActivePageIndex + 1;
Tbutton(Sender).Caption := 'Siguiente';
end;
2: ....
3: ....
4: ....
5: begin
PageControl.ActivePageIndex = PageControl.ActivePageIndex + 1;
Tbutton(Sender).Caption := 'Finalizar';
end;
else ShowMessage('Ejecutando');
end;
btnAnterior.Enabled := PageControl.ActivePageIndex <> 0;
btnAnterior.Visible := PageControl.ActivePageIndex <> 0;
Para el evento Click del Botton Anterior puedes poner algo asi:
Código Delphi
[-]
Case PageControl.ActivePageIndex of
1: begin
PageControl.ActivePageIndex = PageControl.ActivePageIndex - 1;
btnSiguiente.Caption := 'Siguiente';
end;
2: ....
3: ....
4: ....
end;
btnAnterior.Enabled := PageControl.ActivePageIndex <> 0;
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!!!
