Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Cranium © (2002-11-27 03:02:00)
Как определить высоту TMainMenu на форме?

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

Vagrant (2002-12-04 02:04:00) [2]
GetSystemMetrics(SM_CYMENU)

FreeLancer (2002-12-03 16:59:00) [3]
Handle - hWnd Handle to the window containing the menu

Andrey D. (2002-12-03 16:53:00) [4]
GetMenuBarInfo, кстати, мне так и получилось воспользовать - возвращает 1400ошибку (неверный handle), хотя вроде делаю все верно:
GetMenuBarInfo( MainMenu.Handle, 0, OBJID_MENU, mbiMenuBarInfo ).
Что не так?

MBo (2002-11-27 13:44:00) [5]
;)
msdn наизусть ;)

Игорь Шевченко (2002-11-27 13:39:00) [6]
GetMenuBarInfo, однако...

MBo (2002-11-27 13:22:00) [7]
>Игорь Шевченко

уел ;)

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 11:09:00) [8]
MBo © (27.11.02 06:18)

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

MBo (2002-11-27 06:18:00) [9]
GetSystemMetrics
SM_CYMENU

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »