PC Toledo

Olá,
Estou com um problema e lendo esse tópico acredito que alguém possa me ajudar.
Estou desenvolvendo um programa que faz envio de arquivos por FTP, meu problema é que ao se fazer o FTP a janela mostra "(não está respondendo)", depois do envio volta ao normal, como resolver isso? Não tenho o ...

Toledo,
Muito obrigado pela sua ajuda!!!
André

Toledo,
Me desculpe, realmente funcionou, acho que não salvei o código alterado e compilei o antigo.
Saberia me dizer o motivo de perder o foco?
Essa alternativa que usei, com CHILD e desabilitando o formulário pai, acredita que possa dar algum problema?
Outra coisa, a função de pesquisa retorna o ...

Toledo,

O problema persiste, pelo debug eu já tinha visto que o problema aparecia na validação, inclusive já havia tentado fazer exatamente como você sugeriu.

Toquei a janela para CHILD e estou usando funções para desativar o formulário pai, ficou da seguinte forma:



Function ...

Pablo,

Nesse caso é acionada a função atribuída no action do objeto.

@ 075,010 GetBox _CodTrans Width 060;
...
Action fPesquisaTransportadora();
...

Usando

On Key F2 Of frmTRA000 Action frmTRA000._CodTrans.Action

ou

On Key F2 Of frmTRA000 Action fPesquisaTransportadora()

O efeito é mesmo e ...

Pessoal,
O Código abaixo é apenas para ilustrar o problema, não está assim no original, simplifiquei para ficar melhor a compreensão.
Meu problema consiste no uso de MODAL, o formulário principal chama outro de pesquisa através da tecla de atalho F2, ao tentar pressionar a tecla F2 pela segunda vez ...

Todelo,

Funcionou o seu código, aproveitei para testar de uma maneira diferente e também funcionou:

oBrwPesquisa:bKeyDown := {|nKey| If(nKey==13, (fRetornaValor(cCampoRet,cTelaGetRet,cEdtGetRet),fFechaPesquisa(),frmPesquisaGenerica.Release) ,Nil) }

Muito obrigado!

André

Olá Pessoal,
Acompanho o fórum desde o clipper e só agora estou enviando a primeira mensagem. Estou no processo de migração / adaptação com a Minigui.
Não encontrei no fórum e nos exemplos uma maneira de habilitar o ENTER para selecionar uma linha do TSBROWSE, é possível? Como fazer?
Pensei no ON ...