大家好，谁能在程序中屏蔽掉鼠标右键，请告诉我方法和相关代码，谢谢！

在Proc裏面對WM_RBUTTONDOWN作處理

Turboted你好，本人是DELPHI是新手，可否详细点讲，最好有范例，劳烦你了 ，谢谢！

引言: 大家好，谁能在程序中屏蔽掉鼠标右键，请告诉我方法和相关代码，谢谢！

procedure TMainForm.WndProc(var Msg: TMessage); begin case Msg.LParam of WM_RBUTTONDOWN : // Click Mouse Right Button Abort; WM_LBUTTONDOWN : // Click Mouse Left Button begin ...... end; end; end;

longsangli 你好：代码应该没问题，可是我引用后，并没有屏蔽掉鼠标右键，能否请您讲一下可能出现的问题，得分先给你了

引言: longsangli 你好：代码应该没问题，可是我引用后，并没有屏蔽掉鼠标右键，能否请您讲一下可能出现的问题，得分先给你了

請POST程式碼來看看!

正常情况下，在FORM1中点击右键将不会弹出菜单，我想可能没有调用你的函数（怎麽调用？），总感觉少点什麽，以下时代码 ////////////////////////////////////////////////////////////////////// unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; //建立一个弹出菜单 one1: TMenuItem; //菜单项1 two1: TMenuItem; //菜单项2 three1: TMenuItem; //菜单项3 private { Private declarations } procedure WndProc(var Msg: TMessage); //在这里声明函数 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} ////////////////////////////////////////////////////// procedure TForm1.WndProc(var Msg: TMessage); //这里是引用你的代码 begin case Msg.LParam of WM_RBUTTONDOWN : // Click Mouse Right Button Abort; end; end; ///////////////////////////////////////////////////////// end.

引言: 正常情况下，在FORM1中点击右键将不会弹出菜单，我想可能没有调用你的函数（怎麽调用？），总感觉少点什麽，以下时代码 ////////////////////////////////////////////////////////////////////// unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; //建立一个弹出菜单 one1: TMenuItem; //菜单项1 two1: TMenuItem; //菜单项2 three1: TMenuItem; //菜单项3 private { Private declarations } procedure WndProc(var Msg: TMessage); //在这里声明函数 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} ////////////////////////////////////////////////////// procedure TForm1.WndProc(var Msg: TMessage); //这里是引用你的代码 begin case Msg.LParam of WM_RBUTTONDOWN : // Click Mouse Right Button Abort; end; end; ///////////////////////////////////////////////////////// end.

妳是要做於Form中Click 鼠標右鍵時不show popupmenu 在某些元件上卻要有右鍵功能是嗎? 1.請將PopupMenu1.AutoPopup:=False;--->點form就不會show popupmenu 2.在妳要show popupmenu的元件中,於OnMouseDown事件中寫判斷即可. Ex: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; N11111: TMenuItem; N22221: TMenuItem; Edit1: TEdit; procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin if Button=mbRight then begin GetCursorPos(p); PopupMenu1.Popup(P.X,P.Y); end; end; end. 發表人 - longsanglin 於 2003/05/27 20:06:36

longsanglin你好： 我的意思是说，如果屏蔽了右键的话，在form1中点击鼠标右键，是不会有弹出菜单的(可是菜单却依旧弹出），没有写清楚，真是抱歉..

简单点说就是屏蔽掉右键，不让它使用（不是屏蔽弹出菜单），在任何情况下。 对你的答复再次感谢！！！

引言: 简单点说就是屏蔽掉右键，不让它使用（不是屏蔽弹出菜单），在任何情况下。 对你的答复再次感谢！！！

了解.試看看如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; N11111: TMenuItem; N22221: TMenuItem; procedure FormCreate(Sender: TObject); private { Private declarations } procedure MyAppMsg(var Msg: TMsg; var Handled: Boolean); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyAppMsg(var Msg: TMsg; var Handled: Boolean); begin if Msg.Message = WM_RBUTTONDOWN then begin ShowMessage('不支援右鍵選單'); Abort; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := MyAppMsg; end; end.

引言: 简单点说就是屏蔽掉右键，不让它使用（不是屏蔽弹出菜单），在任何情况下。 对你的答复再次感谢！！！

任何情況下... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; private { Private declarations } public { Public declarations } procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMContextMenu(var Message: TWMContextMenu); begin Message.Result:=1; end; end.

longsanglin: 你好！ 您的代码已经过验证（代码简洁实用），其功能已实现，对您的知识与帮助表示敬意。 同时也感谢aip999的帮助。 能够认识你们很高兴，祝你们开开心心每一天！