关于PopupMenu(50分)

年

年轻和尚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #1

如何在指定地方弹出菜单，比如Button的下方，谢谢[]

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #2

jrq (2002-5-10 19:17:00)
--------------------------------------------------------
有以前的一段小代码，供你参考：
procedure TForm1.BitBtn1Click(Sender: TObject);
var p:tpoint;
begin
p.x:=BitBtn1.Left;
p.y:=BitBtn1.top+bitbtn1.Height;
p:=clienttoscreen(p);
PopupMenu1.Popup(p.x,p.y);
end;

 

吕

吕洞宾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #3

var
p:tpoint;
begin
getcursor(p);
popup.popup(p.x,p.y)
end;

 

H

h_q_p

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #4

var
ps: Tpoint;
begin
GetCursorPos(ps);
PopupMenu1.Popup(ps.x, ps.y);
end;

 

年

年轻和尚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-25

• #5

接受答案了.