Tem como finalidade exibir um uma caixa de diálogo com mensagem no centro da tela.
MessageDlg ( Mensagem:String, TipoDeJanela, [TipodeBotão1,TipodeBotão2,...],HelpContexto:LongInt )
Define o tipo de Símbolo
que aparecerá dentro da janela.
| Tipos | Significado | Símbolo na Janela |
| mtError | Erro | |
| mtWarning | Aviso | |
| mtConfirmation | Confirmação | |
| mtInformation | Informativa | |
| mtCustom | Sem identificação |
| Tipos | Significado | Retorno |
| mbOk | Ok | mrOk |
| mbCancel | Cancelar | mrCancel |
| mbYes | Sim | mrYes |
| mbNo | Não | mrNo |
| mbAbort | Abortar | mrAbort |
| mbRetry | Repetir | mrRetry |
| mbIgnore | Ignorar | mrIgnore |
| mbAll | Tudo | mrAll |
| mbNoToAll | Não para Todos | mrNoToAll |
| mbYesToAll | Sim para Todos | mrYesToAll |
| mbHelp | Ajuda | mrHelp |
| mbYesNoCancel | Sim, Não e Cancelar | mrYes, mrNo ou mrCancel |
| mbOkCancel | Ok e Cancelar | mrOK e mrCancel |
| mbAbortRetryIgnore | Abortar, Repetir e Ignorar | mrAbort, mrRetry ou mrIgnore |
Este parâmetro permite especificar um context ID do tópico do help que deveria aparecer quando o usuário clicar no botão help ou pressionar a tecla F1, enquanto a caixa é mostrada.
procedure TForm1.Button1Click(Sender:
TObject);
begin
if ( MessageDlg
('Sair do Programa?', mtConfirmation,
[mbYes, mbNo], 0)
= mrYes) then
close;
end;
Em tempo de Execução ficará assim:
procedure TForm1.Button1Click(Sender:
TObject);
begin
if ( MessageDlg
('Salvar Imagem?', mtCustom,mbYesNoCancel,
0) = mrYes) then
end;
Em tempo de Execução ficará assim:
