[Tutorial] Mensagem de confirmação ao sair do Sistema

['Lenneth 487]

Uma mensagem de confirmação ao tentar sair do sistema é bom, assim você sempre pensará antes de sair do sistema.

 

Use no evento onclose do Formulário.

 

procedure TForm_Principal.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

if messagebox(handle,' Deseja sair do Sistema?','Questão', mb_IconQuestion + mb_YesNo + mb_DefButton1 ) = idNo then

Abort;

end;

 

Editei a mensagem como quiser, as opções ficam "Sim" e "Não".

 

Creditos Before123

[iMelo~' 15]

Eu usei demais isso em programas antigos , é uma coisa meio tonta mas engraçada de se usar kk , adicionado a quicklist.