Topic: [SOLVED] it does not lose data while closing the form
var
alterado: boolean = False;
procedure form4_Edit3_OnChange (Sender: string);
//*** flag que alteracao foi feita no campo
begin
alterado := true;
end;
procedure Form4_OnShow (Sender: string; Action: string);
//**** desabilita todos os icones do sistema no formulario: fechar, minimizar e maximizar
begin
Form4.BorderIcons:= 0;
end;
procedure form4_Button2_OnClick (Sender: string; var Cancel: boolean);
//*** evita sair sem gravar - botao de fechar tem que estar como "no action"
begin
if alterado = false then Form4.Close;
if alterado = true then
if 6 = MessageDlg('Cancela alterações', mtConfirmation, mbYes + mbNo + mbCancel, 0) then
Form4.Close;
end;
begn
end.