Delphi dicas

Desabilitar o botão fechar do formulário principal

{ No evento OnCreate do formulário principal}



procedure TfrmPrincipal.FormCreate(Sender: TObject);

var

hMenuHandle: Integer;

begin

        hMenuHandle := GetSystemMenu(Handle, False);

        if (hMenuHandle <> 0) then

        DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;



ou



procedure TfrmPrincipal.FormCreate(Sender: TObject);

var

Flag: UINT;

AppSysMenu: THandle;

begin

        AppSysMenu:=GetSystemMenu(Handle,False);

        Flag:=MF_GRAYED;

        EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);

end;