请教，我想相应一个右键点击事件，请问应该怎样做那？(50分)

简单点的就是，我想当右键多次点击窗体的时候，弹出对话框，请问怎样做呢，
包括怎样设置多次点击的问题，谢谢

你可以在点击时用变量存点击次数，如果达到多少次后就showmessage了。
----------------------------------------------------------------
var
Click_Total:Integer; //Click_Total定义为全局变量
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Botton= mbright then
Click_Total:=Click_Total+1;
if Click_Total=5 then
begin
ShowMessage('你怎么老按右键？你想干吗?!');
Click_Total:=0;
end;
end;

来晚了一步。对。
就是通过 那个事件的 Tmousebutton 来判断的。

接受答案了.

编译的时候他说Botton没有定义，请问是怎么会是呢？,谢谢亚

不好意思，我打错了个字了。
应该是button