Evitar cerrar un formulario desde un componente

[genius]

Hola amigos. necesito saber como se puede hacer que desde un componente
evite cerrar un formulario ,creo q esto se hace por algo de mensajes de windows.. seria algo interesante para las validaciones en gral. desde ya muchas gracias ..

[luisgutierrezb]

pues si mal no recuerdo basicamente seria reemplazar el winproc de la forma por uno del componente, para que interceptes el cerrado de la ventana, sin embargo se me ocurre algo mas facil, reemplaza el evento "onCloseQuery" de la forma por uno propio donde pongas CanClose a False siempre y no te permita cerrar, seria algo asi como:

Código Delphi [-]
If Assigned(Forma.OnCloseQuery) then
  CloseQueryAntiguo := Forma.OnCloseQuery;
Forma.OnCloseQuery := CloseQueryNuevo;
//donde CloseQueryNuevo es el nuevo procedimiento con el canclose := False
//para obtener la forma pues puede ser con el AOWner, Parent, etc...