Disable (gray out) Close button of a form

procedure TForm1.FormCreate(Sender: TObject);

var

hSysMenu: HMENU;

begin

hSysMenu := GetSystemMenu(Handle, false);

EnableMenuItem(hSysMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

end;








No hay comentarios:

Publicar un comentario

Simulación del movimiento de los electrones en un campo electrico

Espectacular simulación realizada con OpenGL del movimiento de los electrones cuando atraviesan un campo eléctrico. Como muestra la image...