Logo Hardware.com.br
zerocow
zerocow Veterano Registrado
1.7K Mensagens 17 Curtidas

Pascal/Delphi, Como usar o OnClose?

#1 Por zerocow 11/07/2006 - 19:35
Tpw...

eu sei queé ele, mas eu nã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ão, mas eu não consigo interceptar o fechamento da janela... alguem pode me dizer como fazer isso?

tpw, pode ser um codigo qualquer, o importante é que mostre a janela antes de fechar sabe... valeu!
janela aparece fechar delphi usalo geito quee pascal onclose
Responder
gto
gto Tô em todas Registrado
2.1K Mensagens 18 Curtidas
#2 Por gto
11/07/2006 - 20:38
O evento que tu quer é o OnCloseQuery (Quando perguntar para fechar)
Dê uma olhada, fica pertinho do onClose
Lá 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 é uma variável que o próprio procedimento lhe dá wink.png
wololo
Wormer
Wormer General de Pijama Registrado
6.3K Mensagens 7 Curtidas
#3 Por Wormer
11/07/2006 - 20:41
Uma outra alternativa:



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  if MessageDlg('Estou fechando, depois disso não há volta... tem certeza?',

                mtConfirmation, [mbYes, mbNo], 0) = mrNo then

    Action := caNone;

end;
Por favor evitem fazer perguntas técnicas por MP, o fórum existe para isso.

EeePC 4G 701 + Windows Vista Ultimate
Responder Tópico
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal