Скачать: CL | DM;

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

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

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

---

← →
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 и сделал все иначе.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c