还是小问题:点击按钮后,如何使POP菜单显示在此按钮下方(请附代码),即解即送分!

lxftwo 2004-05-08 03:53:47
同上
...全文
26 5 点赞 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lxftwo 2004-05-11
不行,还是显示在窗口的上面?!
  • 打赏
  • 举报
回复
alinsoft 2004-05-08
不知道楼主是不是想要FOXMAIL工具栏里的按钮那样的效果?
我觉得那个效果不错,但不知道那个按钮边上的小三角型是怎么处理的,这样提示用户是个有下拉框的按钮,感觉更专业些。

  • 打赏
  • 举报
回复
wenjianyao 2004-05-08
一楼的就很好
  • 打赏
  • 举报
回复
yimoo 2004-05-08
简单一点的方法!
把这个Button换成Toolbar上的ToolButton,然后设置它的DropdownMenu为Popmenu,就结束了!没有一行代码!
  • 打赏
  • 举报
回复
楚人无衣 2004-05-08
pm: TPopupMenu;
...
procedure TForm1.Button1Click(Sender: TObject);
var
sp: TPoint;
begin
sp.X := Button1.left;
sp.Y := Button1.Top + Button1.Height;
pm.Popup(ClientToScreen(sp).X, ClientToScreen(sp).Y);
end;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4967

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-08 03:53
社区公告
暂无公告