Pascal/Delphi, Como usar o OnClose?

Question

Tpw...

eu sei que&eacute; ele, mas eu n&atilde;o consigo usa-lo de geito nenhum...

Alguem poderia me dizer como fazer?

pois, eu quero que aparece uma caixa de dialogo quando forem fechar a janela...

tpw, Perguntar se quer fechar mesmo ou n&atilde;o, mas eu n&atilde;o consigo interceptar o fechamento da janela... alguem pode me dizer como fazer isso?

tpw, pode ser um codigo qualquer, o importante &eacute; que mostre a janela antes de fechar sabe... valeu!

Answer

O evento que tu quer &eacute; o OnCloseQuery (Quando perguntar para fechar)
D&ecirc; uma olhada, fica pertinho do onClose
L&aacute; dentro pode colocar assim:

if (Application.Messagebox('Deseja mesmo fechar?','Pergunta',MB_YESNO + MB_ICONQUESTION) = mrYes) then
   CanClose := true
else
   CanClose := false;

Repare no CanClose, que &eacute; uma vari&aacute;vel que o pr&oacute;prio procedimento lhe d&aacute; ;)

Answer

Uma outra alternativa:


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('Estou fechando, depois disso n&atilde;o h&aacute; volta... tem certeza?',
                mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    Action := caNone;
end;

Answer

Aff...

na minha CARA e eu n&atilde;o vi... (fico puto qaundo isso acontece)...

d&aacute; raiva isso! eu t&ocirc; aprendendo ai a usar o Delphi/Pascal... e s vezes eu sinto dificuldade em algumas coisas, que s&atilde;o diferentes no C...

desculpa por essa besteira ai!!!

Answer

Que &eacute; isso, nenhuma d&uacute;vida &eacute; &oacute;bvia demais. O pior de tudo &eacute; ter d&uacute;vida e n&atilde;o perguntar.   8)

Ferramentas

Mover Tópico