Как определить высоту TMainMenu на форме?

← →
Cranium (2002-11-27 03:02) [0]

← →
MBo (2002-11-27 06:18) [1]

GetSystemMetrics
SM_CYMENU

← →
Игорь Шевченко (2002-11-27 11:09) [2]

MBo © (27.11.02 06:18)

А если оно на две строчки перенесено ? :-)))

← →
MBo (2002-11-27 13:22) [3]

>Игорь Шевченко

уел ;)

procedure TForm1.Button1Click(Sender: TObject);
var
h: integer;
r0, rlast: trect;
begin
GetMenuItemrect(handle, mainmenu1.handle, 0, r0);
GetMenuItemrect(handle, mainmenu1.handle, mainmenu1.items.count - 1, rlast);
h := rlast.bottom - r0.top;
caption := IntToStr(h);
end;

← →
Игорь Шевченко (2002-11-27 13:39) [4]

GetMenuBarInfo, однако...

← →
MBo (2002-11-27 13:44) [5]

;)
msdn наизусть ;)

← →
Andrey D. (2002-12-03 16:53) [6]

GetMenuBarInfo, кстати, мне так и получилось воспользовать - возвращает 1400 ошибку (неверный handle), хотя вроде делаю все верно:
GetMenuBarInfo( MainMenu.Handle, 0, OBJID_MENU, mbiMenuBarInfo ).
Что не так?

← →
FreeLancer (2002-12-03 16:59) [7]

Handle - hWnd Handle to the window containing the menu

← →
Vagrant (2002-12-04 02:04) [8]

GetSystemMetrics(SM_CYMENU)

← →
Andrey D. (2002-12-04 13:47) [9]

2FreeLancer:
hwnd - Handle to the window (menu bar) whose information is to be retrieved (это из MSDN). Если указать Handle окна, а не меню, то вылезает ошибка 87( The parameter is incorrect ).
Но, в общем, я отказался от GetMenuBarInfo и сделал все иначе.

Как определить высоту TMainMenu на форме? Найти похожие ветки