ShowModal no permite cerrar ventana

[inetplus]

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;

[[eduarcol]]

por lo que nos muestras eso esta bien, ahora el problema puede estar en la asignacion del modar result en FSel_Tarjeta

[inetplus]

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

[guillotmarc]

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.