L liweimingcn Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-06 #1 速达财务软件里的图形功能图标，只有鼠标一移上去，就会向上弹出一个菜单，有哪位 大侠知道这是怎么实现的。
W westboy2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-03-06 #2 呵呵，很简单。 预先做好一个Popupmenu控件，写好你要的菜单。 然后放一个Image控件，在它的MouseMove事件里写代码。 procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin PopupMenu1.Popup(x,y); end; 这样就可以了，很简单的，当然，x/y的值可能需要你再自己调整一下。
呵呵，很简单。 预先做好一个Popupmenu控件，写好你要的菜单。 然后放一个Image控件，在它的MouseMove事件里写代码。 procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin PopupMenu1.Popup(x,y); end; 这样就可以了，很简单的，当然，x/y的值可能需要你再自己调整一下。
