FreeBasic编程-给WS_POPUP自绘窗口添加标题菜单

最新推荐文章于 2022-12-26 03:02:47 发布

原创

最新推荐文章于 2022-12-26 03:02:47 发布 · 290 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft #经验分享 #开发语言

本文介绍如何在自绘WS_POPUP风格的窗口中手动添加系统标题菜单，并解决了菜单项显示为无效状态的问题。

一、前言：

在自绘WS_POPUP风格样式的平面窗口时，由于不需要系统默认的标题按钮，从而导致窗口默认标题菜单也无法显示（当单击左上角图标时）。所以我们需要手动为其添加上去。

二、实现方式：

'-------------------------------------------------------------------------------
' 取得标题栏区间范围
'-------------------------------------------------------------------------------
SUB GetCaptionRect ( BYVAL hWnd AS HWND, BYREF rc AS RECT )
    DIM CaptionHeight AS INTEGER
    DIM FrameWidth AS INTEGER
    CaptionHeight = GetSystemMetrics ( SM_CYSIZE ) + GetSystemMetrics ( SM_CYFRAME ) - 1
    FrameWidth = GetSystemMetrics ( SM_CXEDGE )  * 4
    GetClientRect ( hWnd, @rc )
    SetRect ( @rc, rc.left + FrameWidth, rc.top, rc.right - FrameWidth, rc.top + CaptionHeight )
END SUB

'-------------------------------------------------------------------------------
' 取得标题栏图标区间
'-------------------------------------------------------------------------------
SUB GetIconRect ( BYREF rc AS RECT )
   rc.left = GetSystemMetrics ( SM_CXFRAME ) 
   rc.top =