Não entra no messagedlg

Delphi

18/08/2009

Essa minha rotina, entra no messagedlg(passa por ela), mas não exibe a mensagem. Já coloquei na mão a mensagem(fora do parametro do pacote), mas mesmo assim não exibe a mensagem. Mas se eu dou um break point, entra na mensagem, mas não exibe.

procedure TfrmLogin.VerificaUsuarioLogado;
var
  Retorno: Smallint;
  usuario,
  nm_patrimonio: String;
begin
  usuario       := AnsiUpperCase(edtUsuario.text);;//PckUsuarioLogado.CallStringFunction(´PEGA_USUARIO´,[]);
  nm_patrimonio := PckUsuarioLogado.CallStringFunction(´PEGA_NOME_PATRIMONIO´,[]);

  Retorno := PckUsuarioLogado.CallIntegerFunction(´VERIFICA_USUARIO´,[usuario]);//,nm_patrimonio
  if Retorno = 1 then
  begin
    MessageDlg(PckUsuarioLogado.GetParameter(2),mtInformation,[mbOK],0);
    Application.Terminate;
  end
  else
  begin
    try
      PckUsuarioLogado.CallProcedure(´INSERE_DESTRAVA_USUARIO_SESSAO´,[usuario,nm_patrimonio,parString]);
      frmDtmPrincipal.OraAtualizaGD.Commit;
    except
      frmDtmPrincipal.OraAtualizaGD.Rollback;
    end;
  end;
end;



Paulo

Paulo

Curtidas 0

Respostas

Osocram

Osocram

18/08/2009

tente mudar
MessageDlg(PckUsuarioLogado.GetParameter(2),mtInformation,[mbOK],0);

para
MessageDlg(´Teste´,mtInformation,[mbOK],0);



GOSTEI 0
Paulo

Paulo

18/08/2009

Olá Osocram, já fiz isso, conforme falei no post, mas não funciona.
Já coloquei na mão a mensagem(fora do parametro do pacote), mas mesmo assim não exibe a mensagem



GOSTEI 0
Osocram

Osocram

18/08/2009

Então faz dois teste....
Coloca um esse msg num direto num menu na tela principal.
E cria um projeto novo e coloca so um botão chamando essa msg tbm

Nesses 2 testes vamos saber se esse prob tem a ver c a unit em q esta.
Ou se com o projeto.


Olá Osocram, já fiz isso, conforme falei no post, mas não funciona. 
Já coloquei na mão a mensagem(fora do parametro do pacote), mas mesmo assim não exibe a mensagem



GOSTEI 0
Paulo

Paulo

18/08/2009

Osocram, do nada começou a funcionar. Não tinha sentido não funcionar. Agora tá ok.
Valeu.


GOSTEI 0
POSTAR