HanDs
管理员

[Delphi文章] 捕捉右键事件 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

在button的onmousedown事件下,
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   case button of
     mbleft :form1.close;//按下左键时你想要实现的功能
     mbright :form2.show;//按下右键时你想要实现的功能
   end;
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
捕捉 事件
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复