Exibir mensagem quando fechar form.

Question

:D Ola Pessoal!!!Como fa�o para que ao pedir para fechar o form apare�a um mensagem confirmando a sa�da. Quando o usu�rio dar alt + f4 ou clicar no bot�o X do canto superior direito ou algum outro bot...

Linhares · Answer

assim..if MessageBox(Handle, PChar(�Tsstse�), PChar(�Confirm�), $00000041) = IDOK then   begin  end  else  begin...

Maicongabriel · Answer

No evento [b:56f58ac92c]OnCloseQuery[/b:56f58ac92c] do form principal, coloque o seguinte ::

  if MessageDlg(�Deseja realmente fechar o programa?�,
    mtConfirmation, [mbYes, mbNo], 0) = mrNo then CanClose := False;

[i:56f58ac92c]uses Dialogs[/i:56f58ac92c]...

Wolverine · Answer

no form, no evento OnCloseQuery:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);beginif MessageDlg(�Deseja sair?�,mtConfirmation,mbOKCancel,0)=idcancel then  CanClose:=falseelse  exitend;...

Maicongabriel · Answer

[quote:001a2d6196=�Wolverine�]no form, no evento OnCloseQuery:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);beginif MessageDlg(�Deseja sair?�,mtConfirmation,mbOKCancel,0)=idcancel then  CanClose:=falseelse  exitend;[/quote:001a2d6196]O que mudou com rela��o ao meu exemplo ?...

Wolverine · Answer

Observe a hora q eu postei a mensagemEnviada: S�b Jan 24, 2004 3:32 am e a hora q vc postou a suaEnviada: S�b Jan 24, 2004 3:25 amqdo eu envie a minha msn � tinha a sua msn no topico...

F�rum Exibir mensagem quando fechar form. #209009