截获鼠标右键点击

[benbenfei]

我用下面的方法截获右键消息，在Form1中可以，但是不能截获Form1上控件（如Panel）的右键点击的消息，应该怎么做？

……
Private
Procedure Mymessage(Var Message:Tmessage);Message WM_RBUTTONDOWN;
……
Procedure Tform1.Mymessage(Var Message:Tmessage);
Begin
Showmessage('Right button down');
End;

[benbenfei]

哪位帮忙答一答吧！会则不难呀！

[outer2000]

gz

[Kingron]

你拦截所有的消息处理不久可以了。：）
wndproc或者application.OnMessage。

[风轻狂]

放一个ApplicationEvents控件(在additional上)

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message=WM_RBUTTONDOWN then
Showmessage('Right button down');
end;

[wuyh78]

galeboy(狂风小子) is very right!suggest to give him score!