Hola microbiano.
Por lo que entiendo del código de
BtonAceptarClick, sólo debe salir de FPagos cuando la función
VerificaDatos da un resultado verdadero.
Entonces se me ocurre que en FPagos podrías hacer:
Código Delphi
[-]
procedure TFPago.btnAceptarClick(Sender: TObject);
begin
ModalResult:= Integer(VerificaDatos);
end;
Si
VerificaDatos es True implica que Integer(VerificaDatos) = 1, por lo tanto
ModalResult =
mrOk y sale de FPagos.
Si
VerificaDatos es False implica que Integer(VerficaDatos) = 0, por lo tanto
ModalResult =
mrNone y queda en FPagos
Por último, si deseas que salga de FPago de todas formas, basta con agregar una línea llamando al método
Close.
Y en el form que lo invocas:
Código Delphi
[-]
with TFPago.Create(Self) do
try
ShowModal
finally
if ModalResult = mrOk then ...
Free
end;
Saludos.
´