HDMessageDlg
Componente para exibir mensagem de uma forma mais elegante no Delphi.
- Active · last change 11-5-2026
- ★ 3 on GitHub
README
HDMessageDlg
HDMessageDlg foi projetado para ser uma forma simples e elegante de exibir mensagens no delphi.
Support: rtinformatica.ti@gmail.com
Instalação
Para instalar em seu projeto usando boss:
$ boss install github.com/Rtrevisan20/HDMessageDlgInstalação Manual
Adicione as seguintes pastas ao seu projeto, em Project > Options > Delphi Compiler > Search path
../hdmessagedlg/src
../hdmessagedlg/src/FMXComo usar
Uses necessárias
uses HDMessageDlg.Interfaces, HDMessageDlg;Idioma dos botões
Por padrão os botões são exibidos em português (SIM (ENTER), NÃO (ESC), OK (ENTER)).
Para inglês, defina o idioma global uma vez na aplicação:
THDMessageDlg.DefaultLanguage := lgEnglish;ou por diálogo:
Msg.MsgLanguage(lgEnglish)
.MsgTitle('...')
...Exemplo completo (inglês):
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Confirmation')
.MsgQuestion('Do you want to continue?')
.MsgBody('Choose one of the options.')
.MsgIcon(TiQuestion)
.MsgType(TyQuestion)
.MsgLanguage(lgEnglish)
.DisplayQuestion;
end;Idiomas suportados: lgPortuguese (padrão), lgEnglish. Para novos idiomas, basta incluir um valor em TLanguage e os textos correspondentes em Consts.pas.
Tipos de Uso
Mensagem de Alerta
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Mensagem de Alerta')
.MsgQuestion('Essa é uma mensagem de Alerta?')
.MsgBody('Mensagem de Alerta, Mensagem de Alerta')
.MsgIcon(TiAttention)
.MsgType(TyOK)
.DisplayMessage;
end;Mensagem de Atenção
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Mensagem de Atenção')
.MsgQuestion('Essa é uma mensagem de Atenção?')
.MsgBody('Mensagem de Atenção, Mensagem de Atenção')
.MsgIcon(TiAttention)
.MsgType(TyOK)
.DisplayMessage;
end;Mensagem de Erro
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Mensagem de Erro')
.MsgQuestion('Essa é uma mensagem de Erro?')
.MsgBody('Mensagem de Erro, Mensagem de Erro')
.MsgIcon(TiError)
.MsgType(TyOK)
.DisplayMessage;
end;Mensagem de Joia
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Mensagem de Joia')
.MsgQuestion('Essa é uma mensagem de Joia?')
.MsgBody('Mensagem de Joia, Mensagem de Joia')
.MsgIcon(TiLike)
.MsgType(TyOK)
.DisplayMessage;
end;Apenas uma Mensagem
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Essa é apenas uma Mensagem')
.MsgQuestion('Essa é uma mensagem?')
.MsgBody('Essa é apenas uma Mensagem, Essa é apenas uma Mensagem')
.MsgIcon(TiMessage)
.MsgType(TyOK)
.DisplayMessage;
end;Mensagem de Pergunta
var
MSG : IHDMessageDlg;
begin
MSG := THDMessageDlg.New;
MSG
.MsgTitle('Mensagem de Pergunta')
.MsgQuestion('Em qual opção você vai clicar?')
.MsgBody('Escolha uma das opções por favor!')
.MsgIcon(TiMessage)
.MsgType(TyQuestion)
.DisplayQuestion;
end;