Sumário
-
Índice
Exemplo de uso
procedure
TForm1.Button1Click(Sender: TObject);
begin
if
MsgDlg1.MessageDlg('Deseja encerrar o programa?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
Close;
end;