Clipper On Line • Ver Tópico - Fechar uma Janela sem validar

Fechar uma Janela sem validar

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Fechar uma Janela sem validar

Mensagempor asimoes » 17 Abr 2019 16:48

Pessoal,

A janela tem um botão Sair com ThisForm:Close() e nessa janela tem um campo get EditCPF com valid {||ValidCPF()}

Function ValidCPF()
Local lOk := .T.
   
   If Empty( ThisForm:EditCPF:VarGet() )
      lOk := .F.
   Endif

Return lOk


Tem como fechar essa janela sem que o campo seja validado ?

To fazendo um teste em uma janela modal e queria que ao fechar a janela esse campo não fosse validado, tem alguma propriedade para passar pelo valid do campo ?
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Fechar uma Janela sem validar

Mensagempor asimoes » 18 Abr 2019 17:43

Eu já tinha a solução e não me lembrava, to ficando velho

#define VK_TAB            0x09
#define VK_RETURN         0x0D

If Empty( Thisform:OEdit1:VarGet() ) .And. ( hwg_GetKeyState( VK_RETURN ) < 0 .Or. hwg_GetKeyState( VK_TAB ) < 0 )
   Thisform:oedit1:Setfocus()
   Return .f.
Else
   Return .t.
Endif   


Lembrando que isso é pra deixar o botão Sair fechar a janela,
Mas se tem o botão gravar tem que validar os campos.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Fechar uma Janela sem validar

Mensagempor asimoes » 18 Abr 2019 18:34

Simplificando mais usando hwg_lastkey()

If Empty( Thisform:OEdit1:VarGet() ) .And. HWG_LASTKEY() != 1 //( GetKeyState( VK_RETURN ) < 0 .Or. GetKeyState( VK_TAB ) < 0 )
   Msginfo("erro")
   Thisform:oedit1:Setfocus()
   Return .f.
Else
   Return .t.
Endif   
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro