Foco perdido al invocar un segundo formulario

[[oscarac]]

informacion complementaria

le he colocado un "mensaje" cuando executa el TipoPagoExit y si lo muestra
y en el onenter del siguiente campo tambien coloque un mensaje para confirmar que el foco lo reciba el edit que sigue, pero que creen, no muestra el mensaje de bienvenida, pero si digito cualquier cosa, lo que digito aparece en el edit que sigue

editFormaPago (aqui invoco al formulario "validador"), deberia saltar al campo editmotivoVenta

EditMotivoVenta (puedo digitar algo, pero no se ejecuta el evento onEnter)

ahora cuando coloco una forma de pago que existe y la rutina de verificacion no pasa por el formulario "validador", todo funciona correctamente.

que puede ser?
que puede estar pasando?

definitivamente hay un problema al invocar al "validador"

[[oscarac]]

que cosa mas curiosa

en el diseño del formulario puse fsNormal y Visible = False;

si elimino las lineas donde cambio el Style y el Visible y queda asi :

Código Delphi [-]
if not VerificarFormaPago (edtFormaPago.Text) then
      begin
        frmCatalogoFormaPago := TfrmCatalogoFormaPago.Create(nil);
        frmCatalogoFormaPago.t_para := True;
        frmCatalogoFormaPago.ShowModal;
        frmCatalogoFormaPago.Free;
      end;

funciona bien...

quiere decir que si coloco cambio alguna propiedad en tiempo de ejecucion, puede producir que el programa no siga una secuencia ?

[WHILENOTEOF]

Hola, por lo visto ya lo tienes solucionado. No acabo de entender porque ponías Visible:= false, y otra línea que sobra es frmCatalogoFormaPago.Free; , ya que en el OnClose del formulario le has puesto Action:= caFree.

[[oscarac]]

es que lo creo con create(nil)


visible := false porque le cambiaba la propiedad formStyle a fsNormal

para poder colocar el formulario "validador" como modal

[hal1967]

En lugar de crear directamente los formularios, creo que podrías considerar hacer la llamada a TApplication. No se si ese sea el problema, pero para mi es una forma extraña de crear formularios.

Código Delphi [-]
frmCatalogoFormaPago := TfrmCatalogoFormaPago.Create(nil);

Esta seria usando TApplication

Código Delphi [-]
Application.CreateForm(TfrmCatalogoFormaPago, frmCatalogoFormaPago);

Claro estoy asumiendo que trabajas con una aplicación VCL, para algo como consola no aplica.