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
Sair de uma janela
Moderador: Moderadores
5 Mensagens • Página 1 de 1
Sair de uma janela
por Poka » 14 Jul 2007 18:25
-
Poka Usuário NÃvel 4 
- Mensagens: 513
- Data de registro: 25 Out 2004 21:26
- Cidade/Estado: Leme/SP
- Curtiu: 0 vez
- Mens.Curtidas: 23 vezes
Re: Sair de uma janela
por luiz antonio da silva » 15 Jul 2007 10:45
Poka escreveu: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
////////////
Já tentou isso ?
//////////////////////
funct Minha_funcao
..comandos
f_tela.release
retu nil
////////////
Um Abraço.
luiz.
Agradeço qualquer ajuda.
Poka
HMG 3.4.4 - SQL SERVER - ORACLE
-
luiz antonio da silva Usuário NÃvel 3 
- Mensagens: 161
- Data de registro: 21 Nov 2006 21:12
- Cidade/Estado: serrana-sp
- Curtiu: 13 vezes
- Mens.Curtidas: 10 vezes
por Poka » 15 Jul 2007 11:17
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
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 Usuário NÃvel 4 - Mensagens: 513
- Data de registro: 25 Out 2004 21:26
- Cidade/Estado: Leme/SP
- Curtiu: 0 vez
- Mens.Curtidas: 23 vezes
por Stanis Luksys » 18 Jul 2007 13:11
Poka escreveu:após
ON INIT MINHA_FUNCAO();
colocar uma funcao sair()
Melhor seria assim:
...
ON INIT ( MinhaFuncao(), ThisWindow.Relase() )
...
Falou!
Stanis Luksys
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
-
Stanis Luksys Colaborador 
- Mensagens: 1329
- Data de registro: 18 Jun 2005 03:04
- Cidade/Estado: São Paulo
- Curtiu: 0 vez
- Mens.Curtidas: 2 vezes
por Poka » 19 Jul 2007 10:04
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
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
-
Poka Usuário NÃvel 4 - Mensagens: 513
- Data de registro: 25 Out 2004 21:26
- Cidade/Estado: Leme/SP
- Curtiu: 0 vez
- Mens.Curtidas: 23 vezes
Ver tópicos ativos •
5 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 4 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!
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!
