[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;