自绘POPUPMENU，使其强制向上弹出

//自绘POPUPMENU，使其强制向上弹出
  TrackPopupMenu(Pmu_ReportList.Items.Handle, TPM_BOTTOMALIGN, sPoint.X-cPoint.X,sPoint.Y-cPoint.Y,
    0, PopupList.Window, nil);