Xailer & OZ Software

Hola, ¿Me podeis decir como hacer para tener un form con icono pero sin X de
cerrar?
Saludos
Pablo H

Pablo,
> Hola, ¿Me podeis decir como hacer para tener un form con icono pero sin X
> de cerrar?
Realmente no se puede eliminar la X teniendo un icono, pero sí se puede
desactivar. Pon nBorderStyle = bsSINGLE y en el OnInitialize pones:
DeleteMenu( GetSystemMenu( ::Handle, FALSE ), 6, MF_BYPOSITION )
Y si prefieres que el menú de sistema quede un poco mejor, pones todo esto:
LOCAL hSysMenu := GetSystemMenu( ::Handle, FALSE )
DeleteMenu( hSysMenu, 6, MF_BYPOSITION )
DeleteMenu( hSysMenu, 5, MF_BYPOSITION )
DeleteMenu( hSysMenu, 4, MF_BYPOSITION )
DeleteMenu( hSysMenu, 3, MF_BYPOSITION )
DeleteMenu( hSysMenu, 2, MF_BYPOSITION )
DeleteMenu( hSysMenu, 0, MF_BYPOSITION )
Por otro lado, esto no impide cerrar el formulario con Alt+F4, así que
tendrás que controlarlo también en el evento OnClose.
--
Un saludo,
José F. Giménez