[Newton C. da Silva]

Tô na área Máriodosreis, se derrubar é pênalty, se relar em mim eu caio. kkk Tirei a redundância conforme vc. sugeriu. Resolvido

[Newton C. da Silva]

RESOLVIDO

Apenas coloquei ucMycontrol.free;
procedure TfPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.messagebox (‘DESEJA REALMENTE SAIR DO PROGRAMA ??? ‘, ‘CONFIRMAÇÃO DE SAÍDA’, mb_yesno + mb_iconquestion)=idyes then
begin
try
ucMycontrol.free; // Inclui essa linha antes de fechar o form.
action:= cafree;
application.terminate;
except
action:= cafree;
end;
End else
action:= canone;
end;

[Autor]

Posts