Problema na migração para harbour

[ricardo]

Boa noite Senhores,

Ao migrar meu sistema de xharbour para Harbrour + MinGW, estou tendo o seguinte problema.
Conforme o exemplo em anexo ao abrir o Form2 e preencher os Edit´s funciona normalmente, porém ao fechar o Form2 e abrir novamente quando preencho o Edit1 e tento passar para o Edit2 o sistema está executando o OnExit do Edit2.
Como posso corrigir isso para que eu consiga fazer funcionar o método do OnCheckState do Botão sem gerar esse erro.

PS. O teste é feito sem fechar o Form1.


Desde já agradeço a atenção.

[ftwein]

Bom dia.

O porquê do problema vai ficar para alguém com mais conhecimento.

Não sei se resolve para o seu caso, com :Show() no lugar de :ShowModal() funciona.

Com :ShowModal() e se não usar Button1CheckState() também funciona. Mas aí teria que criar uma outra forma de habilitar/desabilidatar o oButton1. Algo como:

METHOD CheckButton1() CLASS TForm2
::oButton1:lEnabled:= ( !Empty(::oEdit1:Value) .and. !Empty(::oEdit2:Value) )
RETURN Nil

E em FormShow(), Edit1Exit() e Edit2Exit() executar ::CheckButton1()

Fausto Di Creddo Trautwein

[ricardo]

Bom dia Fausto,


Obrigado pela resposta, já estou tentando algo deste tipo.
Más ainda gostaria de saber o motivo pelo qual isso não está funcionando corretamente como no xHarbour + BCC.
Então fica a pergunta para os criadores do Xailer.


Atenciosamente,


Ricardo

[emeasoft]

Olá,
Segue o projeto corrigido.
Abraços
equipe eMeAsOfT

[ricardo]

Obrigado equipe eMeAsOfT,


Vou olhar a solução.


Atenciosamente,


Ricardo