系统托盘问题？？？(50分)

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #1

1.加了一个popup菜单为什么按下右键却没菜单弹出??
procedure TForm1.RButtonPopup(var msg: Tmessage);
begin
case msg.LParam of
WM_RBUTTONDOWN: popupmenu1.AutoPopup:=true;

end;

 

2

2days

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #2

popupmenu1.Popup

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #3

像QQ那样，在系统托盘里点右键会有一个弹出菜单？？
怎么做的？？

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #4

var T:Tpoint;
procedure TForm1.RButtonPopup(var msg: Tmessage);
begin
case msg.LParam of
WM_RBUTTONDOWN:
begin
t:=mouse.CursorPos;
PopupMenu1.Popup(t.X,t.Y);
end;
end;

 

2

2days

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #5

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1827203
你看一下这个贴子

 

B

bitgege

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-28

• #6

接受答案了.