Código
var CanClose: Bolean);
begin
if MessageDlg ( 'Você tem certeza de que quer sair?',
mtConfirmation, [mbYes, mbNo], 0) = idNo then
Canclose:=False;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009