как узнать высоту всплывающего меню?

← →
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]

всем спасибо

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