PC Toledo

Olá a todos

A janela abaixo, mostra a mensagem, executa a minha_funcao, mas como faço para sair dessa janela apos executar a função?



Function F_executa

DEFINE WINDOW F_TELA ;
AT 0,0 ;
WIDTH 500 HEIGHT 200 ;
TITLE '' ;
TOPMOST NOCAPTION;
ON INIT MINHA_FUNCAO()

@ 70,10 LABEL Label_1 ;
WIDTH 500 HEIGHT 40 ;
VALUE " Aguarde o processamento" ;
FONT 'Arial' SIZE 24

END WINDOW
CENTER WINDOW f_tela
ACTIVATE WINDOW f_tela

RETU NIL
//////////////////////
funct Minha_funcao
retu nil
////////////


Agradeço qualquer ajuda.

Poka

Olá Luiz

Primeiramente obrigado por responder, realmente aí funciona, mas eu não queria fechar essa janela em cada função, se não tiver outra alternativa, vou fazer assim mesmo.

Não abusando da sua boa vontade, se voce souber como eu coloco outra função dentro da janela, tambem resolveria, por exemplo:


após

ON INIT MINHA_FUNCAO();
colocar uma funcao sair()




/////////////
funct sair
release window F_tela
ON
////////////////////////////

ja tentei os exemplos abaixo, mas tambem nao funciona


ON INIT MINHA_FUNCAO;
on release window f_tela


ON INIT MINHA_FUNCAO;
on sair()


na verdade eu quero essa rotina para exibir mensagens enquanto uma rotina qualquer é executada, fechar apos a execuçao e voltar onde estava no sistema. Se voce tiver uma outra ideia, tambem será bem vinda.



Um abraço
Poka

Poka escreveu:após
ON INIT MINHA_FUNCAO();
colocar uma funcao sair()

Melhor seria assim: Falou!

Stanis, era isso mesmo que eu queria, funcionou beleza.

Estou começando agora a usar minigui e harbour, estou gostando bastante, mas ainda tenho muitas dúvidas, conforme for aparecendo, vou perguntando.

Um abraço

Poka