Criando um Messagebox personalizado

   Já pensou em personalizar o Messagebox, incluir imagens em seus botões ou até mesmo usar outros ícones para cada tipo de mensagem? Nesse artigo você uma forma simples de fazer isso, personalizando as mensagens de seu aplicativo.

Iniciando nosso exemplo

   Nesse artigo vou demonstrar uma forma de personalizar as mensagens geradas pelos aplicativos em substituição aos métodos Messagebox, Showmessage e Messagedlg. Iremos criar um formulário com todos os tipos de mensagens que ele poderá exibir junto com seus botões e imagens.

Criando o formulário de mensagem

   Inicie o Delphi, a caso não tenha sido criado uma nova aplicação automaticamente, vá ao menu e clique em File >> New >> Application. Com isso será criado um novo formulário para a aplicação, mude sua propriedade name para frmMensagens, salve sua unit como uMensagens.pas e o projeto como Project1.dpr. Mude as seguintes propriedades do formulário:

  

Tabela 1. Propriedades do frmMensagens.

 

Vá à aba Standard e insira três componentes TPanel no formulário, mude a propriedade Name de cada para pnlIcones, pnlMensagem, pnlBotoes. A seguir veja os valores de suas propriedades que devem ser alteradas.

 

Tabela 2. Ajustando as propriedades dos componentes.

 

   Ainda na aba Standard insira um componente TLabel no pnlMensagem, mude seu nome para lblMensagem e sua propriedade Align para alClient, localize a aba Additional, insira três componentes TBitbtn no pnlBotoes, chame-os de btnSim, btnNao, btnOK e finalizando insira cinco componentes TImage no pnlIcones, mude o nome de cada TImage para imgDeletar, imgQuestao, imgCuidado, imgInformacao e imgErro e mude as propriedades Align para alTop e Visible para False.

    Veja a seguir as mudanças que devem ser feitas nas propriedades dos botões:

Tabela 3. Ajustando as propriedades dos componentes.

 

   Ao terminar essa etapa seu formulário deve estar parecido com a imagem a seguir:

  

Figura 1. Formato do nosso formulário.

 

Codificando o formulário de mensagem

   Com a parte visual do nosso formulário pronto, vamos iniciar à parte da lógica criando um tipo que servirá para identificar os botões da mensagem, ele será declarado antes da classe TfrmMensagens.

Listagem 1. Declarando um novo tipo.

type
  TMyButtons = (mbSim, mbNao, mbOk);

 

type
  TfrmMensagens = class(TForm)

...

   Vou criar duas constantes. Uma será usada para armazenar a posição (propriedade Left) que os botões devem ser posicionados e a outra servirá para armazenar o título da mensagem (Caso você queira, poderá deixar o título dinâmico incluindo um novo parâmetro no método que chama a mensagem). Veja a declaração das constantes logo depois da declaração da variável do nosso formulário:

 

Listagem 2. Declarando as constantes.

var
  frmMensagens: TfrmMensagens;

  const
    LEFTBUTTONS : array[0..2] of integer = (258, 178, 97);
    TITULO :String = ‘ClubeDelphi‘;

 
   Agora vamos declarar nosso principal método, que vai ser um método de classe chamado Mensagem, declare-o na sessão public de nossa unit. Ele irá receber três argumentos, o texto da mensagem, os tipos de mensagem que vai ser exibida e quais botões serão exibidos, o método que será uma função vai retornar um valor boleano. Vejo o método declarado:

 

Listagem 3. Declarando um novo método.

  public

{ Public declarations }

class function Mensagem(Texto: String; Tipo: Char; Botoes: array of TMyButtons): Boolean;

  end;

 

   Aperte Ctrl+Shift+C para que seja criado o corpo do método e veja ele pronto a seguir:

 

Listagem 4. Codificação do novo método.

 class function TfrmMensagens.Mensagem(Texto: String; Tipo: Char;
   Botoes: array of TMyButtons): Boolean;

var
  i: Integer;
  frm :TfrmMensagens;

begin
  frm := TfrmMensagens.Create(nil);
  try
frm.lblMensagem.Caption := Texto;
frm.Caption := TITULO;

    for i:=0 to Length(Botoes)-1 do
begin
case (Botoes[i]) of
mbOk: begin
frm.BtnOK.Visible := True;
frm.BtnOK.Left := LEFTBUTTONS[i];
end;  

        mbSim: begin
frm.btnSim.Visible := True;
frm.btnSim.Left := LEFTBUTTONS[i];
end;

mbNao: begin
frm.BtnNao.Visible := True;
frm.BtnNao.Left := LEFTBUTTONS[i];
end;

else begin
frm.BtnOK.Visible := True;
frm.BtnOK.Left := LEFTBUTTONS[i];
end;  
end;
end;

 case (Tipo) of
      ‘I‘: frm.imgInformacao.Visible := True;
      ‘D‘: frm.imgDeletar.Visible := True;
      ‘Q‘: frm.imgQuestao.Visible := True;
      ‘C‘: frm.imgCuidado.Visible := True;
      ‘E‘: frm.imgErro.Visible := True;
else
frm.imgInformacao.Visible := True;
end;

 frm.ShowModal;

case (frm.ModalResult) of
mrOk, mrYes : result := True;
else
result := False;
end;

  finally
if (frm<>nil) then
FreeAndNil(frm);
  end;
end;

   Repare que apenas os botões btnSim e btnOK fazem a função retornar True, enquanto o botão btnNao faz a função retornar False.

 

Testando o MessageBox personalizado

   Ainda no mesmo projeto, inclua um novo formulário e salve-o com qualquer nome, inclua no uses desse formulário a unit uMensagens. Vá à aba Standard e insira seis componentes do tipo TButton no formulário, de um clique duplo em cada um e insira o código conforme a listagem a seguir:

 

Listagem 5. Criando um exemplo para exibir as mensagens

procedure TfrmTeste.Button1Click(Sender: TObject);
begin
  tFrmMensagens.Mensagem(‘Mensagem de informação‘,‘I‘,[mbOk]);
end;

 

procedure TfrmTeste.Button2Click(Sender: TObject);
begin
  if (tFrmMensagens.Mensagem(‘Mensagem de questionamento‘,‘Q‘,[mbSim, mbNao])) then   
      tFrmMensagens.Mensagem(‘Você clicou em SIM!‘,‘I‘,[mbOk])
  else
tFrmMensagens.Mensagem(‘Você clicou em NAO!‘,‘I‘,[mbOk]);
end;

 procedure TfrmTeste.Button3Click(Sender: TObject);
begin
  tFrmMensagens.Mensagem(‘Mensagem de cuidado‘,‘C‘,[mbOk]);
end;

 procedure TfrmTeste.Button4Click(Sender: TObject);
begin
  if (tFrmMensagens.Mensagem(‘Deseja excluir o registro?‘,‘D‘,[mbSim, mbNao])) then
tFrmMensagens.Mensagem(‘Você clicou em SIM!‘,‘I‘,[mbOk])
  else
tFrmMensagens.Mensagem(‘Você clicou em NAO!‘,‘I‘,[mbOk]);
end;

procedure TfrmTeste.Button5Click(Sender: TObject);
begin
  tFrmMensagens.Mensagem(‘Mensagem de erro‘,‘E‘,[mbOk]);
end;

procedure TfrmTeste.Button6Click(Sender: TObject);
begin
  if (tFrmMensagens.Mensagem(‘Deseja encerrar a aplicação?‘,‘Q‘,[mbOK, mbNao])) then
Application.Terminate;
end;

 

   No menu principal do Delphi, vá em Project >> Options e retire o formulário frmMensagens do Auto-Create forms, conforme a imagem a seguir:

Figura 2. Configurando a aplicação.

 

   Clique em OK e pronto, nosso aplicativo está pronto para ser executado, compile o projeto,  execute-o e vejo o resultado.

 

Figura 3. Exemplo de mensagem.

 

Conclusão

   Como vimos nesse artigo, esta é uma forma simples de melhorar o visual de uma aplicação e torná-lo mais intuitivo para o usuário final.