Impedir que se cierre mi aplicación en delphi
Vi una respuesta que diste a un usuario de como mostrar un mensaje usando el evento OnCloseQuery: y quisiera saber si hay una forma de como yo puedo controlar que mi aplicación no se cierre hasta que me cumpla una tarea automática, ejemplo que al darle atl+f4, o a la POR de cerrar me mustre un mensaje que diga hasta que no termine no se cierra la aplicación.
1 Respuesta
Respuesta
1
usa esto:procedure TFormPrincipal.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin// confirma si realmente quiere salir del sistemaif Application.MessageBox('¿Desea salir de Kontabilidad 1.0?', 'Kontabilidad 1.0', MB_ICONQUESTION + MB_OKCANCEL) = mrOK thenCanClose := TrueelseCanClose := False;end; - Carlos Silva