ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

MessageDlg

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
shawdown
Profissional
Profissional


Registrado: Segunda-Feira, 1 de Outubro de 2007
Mensagens: 546
Localização: Goiania-GO

MensagemEnviada: Seg Nov 19, 2007 2:59 pm    Assunto: MessageDlg Responder com Citação

Boa tarde galera gostaria de saber se é possivel exibir uma mensagem estilo as geradas pela function MessageDlg mas com o codigo em um DataModule...

Pq no formulario e padrão basta chamar como segue abaixo..

MessageDlg('MENSAGEM INF. PADRÃO', mtinformation, [mbyes], 0);


Agora no DataModule so consegui usando a expressão que segue abaixo...

raise Exception.Create('MENSAGEM QUALQUER');

Valew desde ja obrigado pela atenção....
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
gilsonnrodrigues
Moderador
Moderador


Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG

MensagemEnviada: Seg Nov 19, 2007 4:34 pm    Assunto: Responder com Citação

funciona da mesma maneira!!

pode ser q nao tenha no uses do datamodule a unit Dialogs mas é só adicionar.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Nov 20, 2007 11:13 am    Assunto: Responder com Citação

Vc tb pode usar a função messagebox da api do windows que é melhor e funciona em qualquer idioma...

Código:

if Application.MessageBox('Você deseja deletar este registro', 'Aviso do Sistema', mb_yesno+mb_iconwarning)=idyes then
begin
(some code to delete)
...
end
else
begin
...
(another code)
end;




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB