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

как узнать высоту всплывающего меню?   Найти похожие ветки 

← →
zema   (2006-02-03 13:32) [0]

мне нужно чтобы меню всплывало над кнопкой, аля ПУСК
пробовал

menuHeigth := (GetSystemMetrics(SM_CYMENU) * pm.Items.Count) + (GetSystemMetrics(SM_CXBORDER) * 2);
pm.Popup(ClientOrigin.X + btnPrint.Left, ClientOrigin.Y + btnPrint.Top - menuHeigth);

но если в меню есть разделители, то получается лажа

---

← →
Игорь Шевченко ©   (2006-02-03 14:11) [1]

Высота разделителя равна GetSystemMetrics(SM_CYMENUSIZE) div 2

---

← →
easy ©   (2006-02-03 18:15) [2]

var
 P:TPoint;
begin
 P:=ClientToScreen(Point(Button1.Left,Button1.Top));
 TrackPopupMenu( PopupMenu1.Handle, TPM_LEFTALIGN or TPM_BOTTOMALIGN ,P.X,P.Y, 0, handle, nil );

---

← →
zema   (2006-02-04 16:37) [3]

всем спасибо

---

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

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



Память: 0.45 MB
Время: 0.042 c