Código:
// Para desactivar el botón de cerrar [x] de una ventana:
/*****************************************************************************
SinSalida
******************************************************************************
Desactiva el botón de cerrar ('x') de una ventana, dibujándolo gris
(Desavtivado).
Utiliza API's de Windows.
Parámetros:
TForm *Ventana: Un puntero al formulario del que se desea desactivar
el botón de cerrar ventana.
Retorna:
Nada.
***********************************************************************
***********************************************************************/
void __fastcall SinSalida (TForm *Ventana)
{
HMENU hMenu = GetSystemMenu(Ventana->Handle, FALSE);
EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND | MF_GRAYED);
DrawMenuBar(Ventana->Handle);
}
/*****************************************************************************
ConSalida
******************************************************************************
Vuelve a activar el botón de cerrar ('x') de una ventana, dibujándolo
en su color normal (Negro).
Utiliza API's de Windows.
Parámetros:
TForm *Ventana: Un puntero al formulario del que se desea activar
el botón de cerrar ventana.
Retorna:
Nada.
***********************************************************************
***********************************************************************/
void __fastcall ConSalida (TForm *Ventana)
{
HMENU hMenu = GetSystemMenu(Ventana->Handle, FALSE);
EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND | MF_ENABLED);
DrawMenuBar(Ventana->Handle);
}
// Angel M. Aranguren