Club Builder

[Javi Builder 5]

Por favor, me urge, se que hay una funcion para que no aparezca el boton de cerrar en los form pero no recuerdo donde la vi y es importantiiisimo que la encuentre. Mil gracias a quien me ayude. :·)

[dcelso@terra.es]

¿no te sirve poner la propiedad del form BorderStyle bsNone?

[Alfonso]

En el Object Inspector ( el cuadro de la izquierda donde aparecen todas las propiedades). Eliges la opción +BorderIcons
al pulsar encima con el ratón aparecerán una serie de propiedades, eliges biSystemMenu = false y así quitas todos ( el de minimizar, maxizar y el de cerrar).

[J.B]

Supongo que lo que deseas es ocultar el boton de cerrar, dejando los de maximizar, minimizar y el icono asociado a la ventana.

Mira a ver si te sirve este codigo:

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);
}

[Gorka]

Las anteriores respuestas no me funcionaban con BCB5 y win 98.
Esta en cambio si, por cortesía de R.Porcar.

// Añade la siguiente declaración en el include ( en el .h, en public):

void __fastcall TForm1::CreateParams(TCreateParams& Params);

// y el siguiente código en el cpp.

void __fastcall TForm1::CreateParams(TCreateParams& Params)
{
TForm::CreateParams(Params); Params.WindowClass.style |= CS_NOCLOSE;}
}

[Gorka]

Uy!!! Hay un ERROR ( sobra un "}" ) y se me ha olvidado despedirme!!!

Hurrengorarte ( Hasta otra )!!!