Testando o componente TMensagemDLG
Crie um novo projeto, nesse projeto insira um componente TMensagemDLG e TButton, no evento OnClick do TButton entre com o código abaixo, compile e teste:
01 |
procedure TForm1.Button1Click(Sender: TObject); |
02 |
begin |
03 |
MensagemDLG1.Botoes := [mbYes, mbNo, mbRetry]; |
04 |
MensagemDLG1.DLGTipo := mtInformation; |
05 |
MensagemDLG1.Msg := 'Meu componente'; |
06 |
MensagemDLG1.Titulo := 'Curso Delphi'; |
07 |
MensagemDLG1.TituloPadrao := False; |
08 |
MensagemDLG1.MostrarMsg; |
09 |
end; |
Figura 1 – Teste do componente TMensagemDLG