Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: 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 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
3-51629
ALX1
2002-11-28 11:28
2002.12.16
---|Ветка была без названия|---


4-52030
Dr. Web
2002-11-05 14:33
2002.12.16
MDIChild: OnMinimize


14-51921
Evgen123
2002-11-25 08:41
2002.12.16
Програмное восстановление базы с устройства


14-51917
Rinat
2002-11-25 11:05
2002.12.16
Добавление новой записи в базу.


1-51777
Th
2002-12-03 16:12
2002.12.16
Вызов метода дедушки