各位大虾:有空研究一下这类问题?(100分)

  • 主题发起人 主题发起人 YuanOnline
  • 开始时间 开始时间
Y

YuanOnline

Unregistered / Unconfirmed
GUEST, unregistred user!
优化菜单,例如:
在Toolbar上的Button控件可以设置成下拉菜单,普通的Button也可以支持菜单的操作:
和ManiMenu一样的效果,不知道大家有没有好的解决方法?
 
我提个笨方法:
点button的时候获取鼠标的坐标,然后在该坐标弹出一个popmenu。
 
raize button控件可以实现,不用再自已做了,其它很多第三方控件也能实现
 
to cgll20
您的控件,在哪里有?
能不能具体再分析一下!
 
我觉得这样的问题还是不要自己去解决了。
应该解决的问题太多了,应当挑选实用的做。时间短暂阿
 
procedure TfrmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
lp:TPoint;
begin
if Button = mbRight then
begin
GetCursorPos(lp);
PopupMenu1.Popup(lp.X,lp.Y);
end;
end;
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
923
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
715
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部