菜单按钮实现····

[cjt0520]

请问那种在按钮旁边有个下拉键···点了后可以出现菜单选项的效果该如何实现·····

[cjt0520]

我是用的TOOLBUTTON做的···菜单可以出来··可是不能在TOOLBUTTON上加图片和文字啊···觉得自己可能做错了·····

[老之]

Raize的RzMenuButton, 其实也就是Button＋PopupMenu而已

[sanguomi]

图片 + property PopupMenu;

[xzl_kye]

ToolButton1 和 PopupMenu1

[bdmh]

标准toolbutton可以实现,其他按钮的可以自己合并一个,或者用第三方的

[22222bbb]

用TOOLBAR，在上面新建TOOLBUTTON，然后改他的属性，好像有个 dropDown的。

[idealy]

楼上几位方面都OK

[cjt0520]

怎样把做出的菜单的按钮设置成左键点击弹出菜单呢`````一般做的都是右键点击弹出菜单
`````应该在ONMOUSEDOWN事件里面添加怎样的代码。。。

[老之]

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  p.X := 0;
  p.Y := TButton(Sender).Height;
  p := TButton(Sender).ClientToScreen(p);
  PopupMenu1.Popup(p.X, p.Y);
end;

[cjt0520]

三个按钮，2个菜单````第一个是菜单按钮```怎样做到点击按钮2后```按钮1的菜单选项是1菜单里面的````点击按钮3后```按钮1的菜单选项是2菜单里面的``````````