FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda Boton Siguiente...
Hola, Acabo De Registrarme En El Foro Y Es Que Tengo Una Inquietud, Estoy Desarrollando Una Aplicacion En Delphi Para Impartir Examenes, Tengo Un Form Y He Colocado Conjuntos De Preguntas En Panels Y Tengo El Siguiente Inconveniente, Coloque Un Boton Siguiente Y Otro Anterior Para Cambiar Al Siguiente Bloque De Preguntas, Osea Al Panel 2, Pero No He Podido Pasarlo A Un Tercer Panel Y Asi Sucesivamente, Ya Que Al Precionar El Boton Siguiente Se Va Del Primero Al Ultimo Y Necesito Que Sea De Forma Secuencial.
Alguien Puede Decirme Como Puedo Hacerlo Con Panela U Otro Componente... Gracias |
#2
|
||||
|
||||
Yo cambiaría los paneles por un PageControl, así podría añadir cuantos TabSheet necesite para las preguntas.
Luego en los botones Anterior y Siguiente solo tendría que usar esto:
Saludos!
__________________
Web |
#4
|
||||
|
||||
Hola.
Los desbordes de índice también se pueden evitar de este modo:
Saludos. |
#5
|
|||
|
|||
GRACIAS AMIGOS
PARA EVITAR LOS DESBORDES LO HICE ASI: procedure TForm1.BSIGUIENTEClick(Sender: TObject); begin PageControl1.Pages[PageControl1.TabIndex + 1].Show; if pagecontrol1.TabIndex >= 1 then button2.Enabled:=true; if pagecontrol1.TabIndex >= 2 then button1.Enabled:=false else button1.Enabled:=true; end; procedure TForm1.BANTERIORClick(Sender: TObject); begin PageControl1.Pages[PageControl1.TabIndex - 1].Show; if pagecontrol1.TabIndex >= 1 then button2.Enabled:=true; if pagecontrol1.TabIndex = 0 then button2.Enabled:=false else button1.Enabled:=true; end; LO PROBE CON 3 TABSHEET, DE ESA FORMA PUEDO CONTROLAR QUE CUANDO LLEGUE AL PRIMER O ULTIMO TAP LOS BOTONES SE INACTIVEN, NO SE SI ES LA MEJOR FORMA PERO FUNCIONA GRACIAS POR SU AYUDA, SON UNOS GENIOS... |
#6
|
|||
|
|||
ok una cosilla más, si quieres q se vea como un panel sencillo y ordinario , entonces revisa el componente TNotebook, puedes cambiar de hoja o página con esto:
saludos! otra cosilla, para poner código de delphi aqui te recomiendo q uses el comando "[ Delphi]" <- el q inicia la instrucción, ny "[ /Delphi] <- el q cierra. ej : "[ DELPHI] MI CODIGO [/delphi]" saludos , sin las comillas ni los espacios eh?! |
#7
|
||||
|
||||
Optimizado, con excepciones y habilitando o deshabilitando el boton
Saludos!
__________________
Web |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ayuda con la siguiente consulta | microbiano | SQL | 9 | 14-04-2010 17:45:10 |
AYUDA CON Boton Buscar | javiermao_ | Conexión con bases de datos | 4 | 11-11-2009 09:45:12 |
botón siguiente se pulsa solo | peripla | MS SQL Server | 1 | 20-01-2009 19:02:15 |
Ayuda con Boton | adonias | Varios | 12 | 11-03-2008 02:58:15 |
|