如何限定popmenu的弹出点?(50分)

O

ooooh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-15

• #1

我想将popmenu的弹出限定在label或其它控件的左下角,如何写?

 

快

快乐的飞虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-15

• #2

取得控件左下角的坐标，再调用popmenu函数。

 

O

ooooh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-15

• #3

如何取得控件左下角的坐标?

 

快

快乐的飞虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #4

控件.left
控件.top+控件.height

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #5

procedure TForm1.Label1Click(Sender: TObject);
var
ptObject: TPoint;
begin
ptObject := TLabel(Sender).Parent.ClientToScreen(Point(TLabel(Sender).Left,
TLabel(Sender).Top + TLabel(Sender).Height));
PopupMenu1.Popup(ptObject.X,ptObject.Y);
end;

 

Z

zj_mpy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #6

PopupMenu1.Popup(X,Y);

 

O

ooooh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-16

• #7

接受答案了.