[25分]PopupMenu 可否强制向上弹出?该如何处理

[25分]PopupMenu 可否强制向上弹出?
当程序的窗体靠近windows的任务栏时(高度不够PopupMenu菜单显示的空间)他就会向上弹,可否实现程序窗口在任何地方 PopupMenu菜单都向上弹?

[解决办法]
做得好些可以通过重载

Delphi(Pascal) code

var  vPoint: TPoint;begin  vPoint := Mouse.CursorPos;  TrackPopupMenu(PopupMenu1.Items.Handle, TPM_BOTTOMALIGN, vPoint.X, vPoint.Y,    0, PopupList.Window, nil);end;