怎么样在一个按钮下面左键弹出一个菜单(50分)

R

redwh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #1

//求救：
怎么样在一个按钮下面左键弹出一个菜单，我试过用popup(x,y),但是不知道怎么控制
到接近按钮的位置，或者用MainMenu可以解决吗？

怎么在一个整图上象做网页一样设热点连接，分别处理不同的过程！

 

轻

轻松虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
P : TPoint;
begin
P := TWinControl(Sender).ClientToScreen(Point(0,TWinControl(Sender).Height));
PopupMenu1.popup(p.x, p.y);
end;

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #3

delphi的TControl有ClientTOsCreen函数的

 

R

redwh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #4

clienttoscreen到底怎么用啊[][]

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #5

var p:TPoint;

GetCursorPos(p);
popupmenu1.popup(p);

 

R

redwh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #6

TO Nstar:

不能这样用啊，参数应该是 popup(x,y)

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #7

笔误...
popupmenu1.popup(p.x,p.y);

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
s:tpoint;
begin
s:=button1.ClientOrigin;
PopupMenu1.Popup(s.x,s.y);
end;

 

R

redwh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-19

• #9

多人接受答案了。