怎样用点击左键模拟右键？(5分)

S

sjm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #1

BitBtn1的PopupMenu属性指向了一个popupmenu1，运行后用鼠标右键点击BitBtn1可以出现Popup菜单，如何能实现左击BitBtn1也能像右击那样显示popup菜单呢？谢谢！

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #2

procedure TForm1.BitBtn1Click(Sender: TObject);
var p:TPoint;
begin
GetCursorPos(p);
popupmenu1.Popup(p.x,p.y);
end;

 

S

sjm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-14

• #3

谢谢！