1,183
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
things 2003-06-03
- 打赏
- 举报
up
firetoucher 2003-06-03
- 打赏
- 举报
你可以用Hook处理鼠标右键,
如果只是桌面,你也可以在注册表中改一个键(不好意思忘记那个了)
如果只是桌面,你也可以在注册表中改一个键(不好意思忘记那个了)
h2yang 2003-06-03
- 打赏
- 举报
在需要禁用的地方放一个popmenu，不设置任何菜单项就行了嘛。
若是要禁用标题栏上的systemmenu，可以先边框=none，再自己画标题栏，
若是要禁用标题栏上的systemmenu，可以先边框=none，再自己画标题栏，
microjuz 2003-05-22
- 打赏
- 举报
这个问题我不太明白
帮我看贴
http://expert.csdn.net/Expert/topic/1810/1810534.xml?temp=.1233637
帮我看贴
http://expert.csdn.net/Expert/topic/1810/1810534.xml?temp=.1233637
boz 2003-05-21
- 打赏
- 举报
放一个ApplicationEvents，在OnMessage中.........
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
mPoint : TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint);
PopupMenu1.Popup(mPoint.X, mPoint.Y);
Handled:=True;
end;
end;
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
mPoint : TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint);
PopupMenu1.Popup(mPoint.X, mPoint.Y);
Handled:=True;
end;
end;
