请问，如何实现这个功能，谢谢各位(50分)

枫

枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-23

• #1

我想用鼠标的键点击一个BUTTON，然出弹出一个POPMENU菜单，请问这怎么实现呢？谢谢！！

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-23

• #2

在Click事件中,用PopupMenu.Popup(x,y)就行了.

 

L

lintong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-23

• #3

在Button的OnClick事件里写： PopupMenu.Popup(X, Y);
X, Y是Menu弹出位置的坐标

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-23

• #4

procedure TOperation.SpeedButton14Click(Sender: TObject);
var pos:Tpoint;
begin
pos.x:=100;
pos.y:=100;
PopupMenu1.Popup(pos.X,Pos.Y);
end;

 

枫

枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-23

• #5

谢谢各位