关于PopupMenu向上弹出显示

关注

原创最新推荐文章于 2025-04-10 10:05:29 发布 3k 阅读 AI 写同款· GEO 优化 ›

PopupMenu弹出位置的控制 PopupMenu作为弹出菜单是很好用的，但是默认只能弹出在view的下方，而实际中这样的弹出位置可能无法满足需求，比如自定义的canvasView，要在canvasView长按的位置弹出菜单，PopupMenu只有一个show的方法，没有可以设置位置的方法，但当我们跟进源码去看时发现了这样的一段代码： PopupMenu.class public void show() { ... 阅读详情

在使用PopupMenu过程中,应该有很多朋友在使用 PopupMenu弹出菜单时有这样一个想法，比如我要让我的PopupMenu像Window系统的“开始”向上显示。可能有很多朋友在这一方面遇到难题了。也许也有些朋友通过PopupMenu 的.Popup(x,y)来设计向个弹出,但用过这个功能时会感到不满意的。经过本的仔细摸索终于搞定了解决这个问题的方法, 以下是代码实现部分,有两种方法可以实现：

方法一：

procedure TForm1.Button2Click(Sender: TObject);
var
pc :TPoint;
begin
    SetForegroundWindow(Handle) ;
    pc :=Button2.ClientToScreen(Point(0, 0)) ;
    TrackPopupMenu(PopupMenu1.Handle,TPM_BOTTOMALIGN,pc.X, pc.Y,0,Handle,nil);
    PostMessage(Handle, WM_NULL, 0, 0);
end;

方法二：

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pp: PTPMParams;
pc :TPoint;
begin
    SetForegroundWindow(Handle) ;
    pc :=Button1.ClientToScreen(Point(0, 0)) ;
    GetMem(Pp, sizeof(TTPMParams));
    Pp^.cbSize := sizeof(TTPMParams);
    Pp^.rcExclude := Rect(pc.X, pc.Y,
    Screen.Width ,Screen.Height);
    TrackPopupMenuEx(PopupMenu1.Handle,TPM_BOTTOMALIGN, pc.X,
      pc.Y, Handle, Pp);
    FreeMem(Pp);
   PostMessage(Handle, WM_NULL, 0, 0);
end;

以上是两种方法的实现部分,如有什么问题或更好的办法可以联系我jzymail2008@163.com　或直接在此留言。
对此相关的msdn信息为：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/menus/menureference/menufunctions/trackpopupmenu.asp

收录于