Exibir mensagem quando fechar form.
: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ão que eu inseri no form para executar a função de fechar, ou outra função que exista, ou seja, de qualquer forma que usuário pedir para fechar, aparecera uma mensagem de confirmação.
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ão que eu inseri no form para executar a função de fechar, ou outra função que exista, ou seja, de qualquer forma que usuário pedir para fechar, aparecera uma mensagem de confirmação.
Teoprog
Curtidas 0
Respostas
Linhares
23/01/2004
assim..
if MessageBox(Handle, PChar(´Tsstse´), PChar(´Confirm´), $00000041) = IDOK then
begin
end
else
begin
if MessageBox(Handle, PChar(´Tsstse´), PChar(´Confirm´), $00000041) = IDOK then
begin
end
else
begin
GOSTEI 0
Maicongabriel
23/01/2004
No evento [b:56f58ac92c]OnCloseQuery[/b:56f58ac92c] do form principal, coloque o seguinte ::
[i:56f58ac92c]uses Dialogs[/i:56f58ac92c]...
if MessageDlg(´Deseja realmente fechar o programa?´,
mtConfirmation, [mbYes, mbNo], 0) = mrNo then CanClose := False;[i:56f58ac92c]uses Dialogs[/i:56f58ac92c]...
GOSTEI 0
Wolverine
23/01/2004
no form, no evento OnCloseQuery:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg(´Deseja sair?´,mtConfirmation,mbOKCancel,0)=idcancel then
CanClose:=false
else
exit
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg(´Deseja sair?´,mtConfirmation,mbOKCancel,0)=idcancel then
CanClose:=false
else
exit
end;
GOSTEI 0
Maicongabriel
23/01/2004
no form, no evento OnCloseQuery:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg(´Deseja sair?´,mtConfirmation,mbOKCancel,0)=idcancel then
CanClose:=false
else
exit
end;
O que mudou com relação ao meu exemplo ?
GOSTEI 0
Wolverine
23/01/2004
Observe a hora q eu postei a mensagem
Enviada: Sáb Jan 24, 2004 3:32 am
e a hora q vc postou a sua
Enviada: Sáb Jan 24, 2004 3:25 am
qdo eu envie a minha msn ñ tinha a sua msn no topico
Enviada: Sáb Jan 24, 2004 3:32 am
e a hora q vc postou a sua
Enviada: Sáb Jan 24, 2004 3:25 am
qdo eu envie a minha msn ñ tinha a sua msn no topico
GOSTEI 0