Mensagens para fechar

[Lima duarte3 0]

E ai galera preciso de uma ajudinha!!

Quero criar uma mesagem p quando eu for fechar meu sistema aparecer a mesagem e dizendo sim para sair e Não para continuar

 

pufavor escreva os comando tambem obrigado!!

[Faccruz 0]

Faça essa pergunta no OnClose do form.

 

if MessageDlg('Deseja Realmente sair?', MtConfirmation, MbYesNo, 0) = mrYes then
  'Faz os procedimentos para fechar
end;

[Raficcha 1]

Só para complmentar a função. Neste exemplo, se o usuário clicar em "não" (ou "no"), o programa será fechado. Isso pode ser resolvido no "else", veja:

 

if MessageDlg('Deseja Realmente sair?', MtConfirmation, MbYesNo, 0) = mrYes then
 'Faz os procedimentos para fechar
else
 action := caNone;