FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ShowModal no permite cerrar ventana
Tengo un problema que me impide continuar con la programación de mi sistema y no se a que se debe, a continuación detallo el proceso:
Tengo una ventana la cual es mostrada en pantalla a través de ShowModal, la misma consta con un componente TPageControl y dos botones, asociados cada uno con la variable MROk y MrCancel. Resulta que al presionar sobre alguno de estos botones no cierra la ventana a la primera, sino que hay que presionarlo nuevamente para concluir la operacion. Yo pienso que el problema se presenta por el componente TPageControl, ahora no entiendo porque Este es el codigo: FSel_Tarjeta:=TFSel_Tarjeta.Create(Nil); Try With FSel_Tarjeta do Begin Valor1:=0; Valor2:=0; ShowModal; If ModalResult = mrOk //entra si se acepta la operacion Then If PageControl1.ActivePage = TabSheet1 //establece cual es la pestaña activa Then Recargo_Tarjeta:=PagoTarjeta else Recargo_Tarjeta:=PagoCheque else Recargo_Tarjeta:=0; end; //with Finally FSel_Tarjeta.free // cierra la ventana end; end; |
#2
|
||||
|
||||
por lo que nos muestras eso esta bien, ahora el problema puede estar en la asignacion del modar result en FSel_Tarjeta
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#3
|
|||
|
|||
Ni se molesten en contestar, el error era una pavada que nunca hubiera imaginado, pero igual la dejo asentada en este foro por si las dudas, el problema estaba en que existian dos botones, pero solo habia asignado el mrOk, el otro no contenia valor. Solo vasto con asignar el MRCancel al boton mencionado y problema resuelto.
Bueno me van a decir que a nadie le paso ... vamos .... un saludo |
#4
|
||||
|
||||
Hola.
Seria una buena idea, que encerrarás el código entre cláusulas [code] [/code] de esta forma no se perderían las alineaciones. Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). Última edición por guillotmarc fecha: 17-03-2004 a las 20:58:10. |
|
|
|