Cita:
Empezado por vtdeleon
aunque creo que no es necesario tener Form3.free ya que se cierra sola.
|
Código Delphi
[-]
procedure TCustomForm.CloseModal;
var
CloseAction: TCloseAction;
begin
try
CloseAction := caNone;
if CloseQuery then
begin
CloseAction := caHide;
DoClose(CloseAction);
end;
case CloseAction of
caNone: ModalResult := 0;
caFree: Release;
end;
except
ModalResult := 0;
Application.HandleException(Self);
end;
end;
En principio, al cerrar una ventana modal se oculta, a menos que se haya especificado en el OnClose: action := cafree; esto se verifica en el DoClose(var Action:TcloseAction)
Un saludo