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