Teste feito com HwGui
Compilado com -b
TesteGT() é a função que será chamada no ON CLICK do botão
Obs. atentar para Hide() e Show() no meu teste tenho uma janela pai Thisform e filha ThisformImporta ambas DIALOG
Thisform e ThisformImporta estão iniciadas no inicio da função principal
THREAD STATIC ThisForm, ThisformImporta
A janela é GT,
No ON CLICK do botão chama TesteGT()
Assim consigo debugar nas funções e saber se processamento está correto
No final não seguir com F8 quando vai destruir a janela console, porque trava!!!, segue com F5, a janela pode ser chamada quantas vezes quiser atentando para esse detalhe
INITGTX.PRG- (6.62 KiB) Baixado 106 vezes
Código: Selecionar todos
FUNCTION TesteGT()
Thisform:Hide()
ThisformImporta:Hide()
oJanela := IniciaJanela( "TESTE", 24, 80 )
altd()
* No debug teclar F5 para não travar
wapi_DestroyWindow( oJanela )
Thisform:Show()
ThisformImporta:Show()
RETURN Nil