Ajuda GotFocus

[mariosandes]

Olá pessoal,

Estou tendo dificuldade em uma aplicação, precisaria quando o meu Form voltasse a ficar com foco, ou restaurado após ser miminizado, disparasse o evento GotFocus, mas este evento não acontece no EXE (pelo menos na minha aplicação), alguém saberia me dizer como faço para envocar este evento?

- Minha aplicação só possui um unico Form principal;
- SCREEN = OFF;
- Versão - VFP8.0 SP1

Obrigado,

Mario

[Julio]

Ao chamar outro form este form principal esta sendo minimizado, ao voltar esta maximizando ele.

Ao fechar o segundo form maxinize o primeiro.
O form principal necessitar ser minimizado?
Pode dar mais detalhes ou postar o exemplo do que estas fazendo?

julio

[mariosandes]

Olá Julio,

O aplicativo é apenas um form (com o _screen oculto) que após ser executado fica minimizado na barra de ferramentas (ativo e exercendo sua função), mas precisaria que assim que o usuário clicasse nele para restaura-lo ou maximiza-lo, ou seja, no momento que ele ganhasse foco, executaria uma outra rotina.

O problema é que quando compilado em "EXE" o evento do form "GotFocus" não é disparado, nem o "Activate".

Não sei o que pode ser, pois quando rodo o "SCX" o evento do form é disparado normalmente.

Mario

[Julio]

Ja tentou colocar o que deve ser disparado no INIT

[m@r<3|o]

se mudar para APP consiga ter um proveito maior
e resolveria a questao de focus

[mariosandes]

Olá Julio, o aplicativo roda normalmente, o problema maior é que no momento que ele volta a ter foco precisaria rodar uma rotina. Tentei também ativar alguma tecla de atalho (Ex.: CTRL + M) para ativar a rotina necessaria e também não funciona o "KeyPress".

Oi Marcelo, acabei de testar compilando em "APP", e também não funcionou.

Queria mandar o teste que estou fazendo, não consegui anexar o projeto aqui.

Mario

[Julio]

Veja este topico como postar um arquivo UPLOAD:

[Você precisa estar registrado e conectado para ver este link.]

Aqui postar uma imagem UPLOAD.

[Você precisa estar registrado e conectado para ver este link.]

[m@r<3|o]

se voce esta utilizando aquele , systray esses obejtos externos
eu sempre testei e nunca consegui manter
pq o mesmo da erro qdo quer é incontrolavel ...

mais em questao precisa detalhar mais,

mais em questao de postar o marcos pode te dar a dica, tem uplocad na barra principal 2 opcao ..... ai voce adiconar no procurar e recebera um link ai se colaria aqui ..... esse é o procedimento ...

[mariosandes]

Oi Marcelo, não utilizo o systray no aplicativo.

Oi Julio, nossa mais simples que isso impossivel ...rs... desculpe a ignorancia.

Então segue o teste que faço, na verdade é somente um form cru neste exemplo, preciso apenas testar o disparo do "GotFocus" ou "Activate". Testando desta forma isolei as rotinas, assim tendo certeza que não é alguma influência de codigo que estaria impedindo o disparo do evento.

Então a lógica que sigo neste teste é o seguinte: Este form será minimizado normalmente, em um momento não determinado o usuário irá restaura-lo ou maximiza-lo, neste momento deverá ser disparado o evento "GotFocus".

Clique aqui para baixar o arquivo!

Obrigado pela atenção,

Mario

[Julio]

O que exatamente o evento gotfocus deve fazer neste caso.

[lardecristo]

Olá, baixei o seu teste e fiz o teste.
Explicação técnica, porque não disparada cada um dos eventos após a primeira vez.

Activate - só ocorre quando o form é ativado, no caso o form já está ativado apesar de estar minimizado.
Init - só ocorre quando o form é criado, melhor dizendo só uma vez.
GotFocus - só ocorre quando o form recebe o foco, mas como o mesmo não perdeu o foco, mesma estando minimizado.

Solução use o Resize, e lá dentro verifique o WindowState do form.

Coloque o código abaixo no Método Resize do Form e teste.

Código:

LOCAL lnEstado as Integer
lnEstado = THIS.WindowState
DO CASE
    CASE lnEstado = 0
            MESSAGEBOX("Normal")
    CASE lnEstado = 1
            MESSAGEBOX("Minimizado")
    CASE lnEstado = 2
            MESSAGEBOX("Maximizado")
ENDCASE

Qualquer dúvida sobre o código post ai.

Abraços,

[mariosandes]

Luiz, perfeito!

Funcionou certinho... eu imaginava que o form perdia o foco quando minimizava.

Muito obrigado! Julio, Marcelo, Luiz e todos pela atenção e a grande ajuda!

Abraços

Mario