Ver Mensaje Individual
  #2  
Antiguo 29-08-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Me pregunto si no bastaría conque la ventana en cuestión, el formulario, no contara con el botón "cerrar". Eso puedes conseguirlo a partir de la propiedad "BorderStyle" del formulario. Si quieres reaccionar al cierre del formulario, en todo caso (por ejemplo para la combinación de teclas ALT + F4 sobre el mismo) puedes acaso usar el evento "OnCloseQuery" y actuar en consecuencia.

De todas maneras el botón "cerrar" de un formulario puede deshabilitarse:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Flag: UINT;
  AppSysMenu: THandle;
begin
  AppSysMenu:=GetSystemMenu(Handle,False);
  Flag:=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
end;

* El anterior código lo he recogido de Greatis.com.
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 29-08-2006 a las 04:59:27.
Responder Con Cita