А как узнать высоту заголовка окна в Windows XP??

[Особист]

Собственно, сабж.
Поскольку в моей программе размеры контролов масштабируются, а в WinXP есть совершенно дурацкая на мой взгляд "фишка" - в новом дизайне высота заголовков выше, чем стандарт. Всё естественно сползает вниз - не намного, но всё равно вызывает ощущение непродуманности разрабатываемой программы.

Поиском пользовался, и на форуме нашёл такую тему
GetSystemMetrics(SM_CYBORDER)+GetSystemMetrics(SM_CYCAPTION)

Но она почему-то не решает проблему, а всегда возвращает 2048.

Подскажите, как быть!

[hCORe]

Во-первых, если форма Sizable, то это SM_CYFRAME. Если Fixed Dialog/Fixed Single, тогда SM_CYDLGFRAME.

Вот простой пример. Создаешь обычную форму, вставляешь следующий код:

Код: Выделить всё

Option Explicit

Private Const SM_CYCAPTION As Long = 4
Private Const SM_CYFRAME As Long = 33
Private Const SM_CXFRAME As Long = 32
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Private WithEvents cmdNew As CommandButton

Private Sub Form_Load()
    Set cmdNew = Controls.Add("VB.CommandButton", "cmdNew")
    cmdNew.Visible = True
    cmdNew.Width = 3000
    cmdNew.Caption = "Hi!"
   
    Caption = "Button Demo"
    Height = cmdNew.Height + (GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME) * 2) * Screen.TwipsPerPixelY
    Width = cmdNew.Width + GetSystemMetrics(SM_CYFRAME) * 2 * Screen.TwipsPerPixelX
End Sub

Private Sub cmdNew_Click()
    MsgBox cmdNew.Caption, , "Button Event"
End Sub

[Особист]

hCORe
Спасибо тебе большое, помогло!