Buscar

Cancelar fechamento do form no delphi

Código

//Colocar no OnCloseQuery do formulario como exemplo.

procedure TFprodutos.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
Iconf:Integer;
begin
Iconf := Application.MessageBox('Confirma o encerramento(saida) do sistema ?','CONFIRMAÇÃO',mb_yesNo+mb_iconQuestion+mb_Defbutton2);
if Iconf = IDNO then
    CanClose := False;
end;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 26/12/06
Por: Rodrigo
Visualizada: 4802 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009