Olá pessoal!
faz tempo q nao entro na lista, mas agora to tentando fazer um lance
aqui e ta meio enrolado:
1) tenho 2 aplicações (1 principal e uma secundaria) e as duas estao
rodando na mesma maquina, e no mesmo instante, ok.
2) a aplicação principal tem q chamar a secundaria passando um
parametro para ela abrir alguns calculos na tela.
3) a aplicação secundaria vai mostrar estes calculos e o usuario vai
confirmar as informações.
4) a aplicação secundaria deve MINIMIZAR apenas e retornar o
controle para a aplicação principal;
na aplicação principal to usando o seguinte codigo para MAXIMIZAR a
aplicação secundaria:
-------inicio------
procedure TfrmLancamento.AcessoAoTerminal( vNmr_OrdemServ: Integer );
var
HndImpCP : THandle;
begin
HndImpCP := FindWindow('TfrmOrdemServ',nil);
if (HndImpCP <> 0) then
begin
SendMessage( HndImpCP, WM_APP + 20 , 0, vNmr_OrdemServ
{numero do CP} );
end;
end;
---------fim-------
o resultado é que a aplicação secundaria recebe o parametro
vNmr_OrdemServ passado, executa os calculos necessarios, mas NÃO DÁ
SHOWMODAL na janela da aplicação principal!
Alguem pode me dar uma luz de como seguir neste tunel?
Obrigado qq ajuda...
Sérgio
[EMAIL PROTECTED]
