如何用delphi设计紧缩菜单

Posted 2023-05-03

参考技术A 不难！
在窗体上放一个按钮和右键菜单。在按钮的OnMouseUp事件下加入代码：

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
pt:TPoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup((pt.x-x),(pt.y+(Button1.Height-y)));
end;本回答被提问者采纳 参考技术B 里面有个控件,是菜单空件,有树形菜单和仿微软操作系统的下拉菜单,里面有可以直接调用 参考技术C 什么叫紧缩菜单?

参考资料：大仙

如何用Qt的designer添加菜单栏

参考技术A 在使用Qt创建桌面程序的时候，经常会使用Qt
designer来设计程序界面。
而Qt窗口类中，QMenuBar和QToolBar中并没有按钮或选项类的控件，取而代之的是要向这些控件中添加QAction。这一个个Action构成了类似按钮似的“控件”。
网上很多在源代码中添加QAction的方法。实际上，在Qt
designer中也可以方便的想菜单栏和工具栏添加action。
方法如下：
1、打开动作编辑器。
如果找不到动作编辑器，请点击Qt
designer的菜单栏的“视图”-“动作编辑器”。
2、在动作编辑器窗口添加新的动作
3、拖动该动作到菜单栏或状态栏
大功告成
如果想为改Action设置响应函数，可以将该Action的Triggered()信号与想要的槽函数相连。
如
//连接信号和槽
connect(ui.actionInputFlightData,SIGNAL(triggered()),this,SLOT(testTra()));