请问EDIT控件中如何屏蔽掉鼠标右键功能？

[pclogic]

谢谢！

[kw123]

用消息

[pclogic]

kw123(阿柯) 谢谢你，鼠标右键是哪个事件呀？

[zyq_123]

简单解决办法：添加一个空的PopupMenu组件到form中。不要往里面添加任何东西。
然后把Edit的PopupMenu属性设置为这个空的PopupMenu就行了。

[hottey]

给你写了一个．自己看吧！
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure mymessage(var msg:Tmsg;var handled:boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.mymessage(var msg:tmsg;var handled:boolean);
begin
／／判断是否在Ｅｄｉｔ１上点击右键／／
if (msg.message=WM_rbuttondown) and (msg.hwnd=edit1.Handle) then
begin
handled:=true;
exit;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=mymessage;
end;

end.

[cenjoyer]

添加一个空的PopupMenu组件到form中。
然后把Edit的PopupMenu属性设置为这个空的PopupMenu就行了。

[cx_super]

学习

[horse_h]

学习

[午秋]

唉，搞得那么复杂干嘛，在下面事件中写一句不就得了

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Handled :=true;
end;