如何禁止鼠标在某一区域内不能刷黑，就是不能选中内容。。。

fdzxb 2003-06-18 08:51:32

如题，想在embeddedwb范围内禁止鼠标刷黑。

请高手指教！！！

...全文

151 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

fdzxb 2003-06-23

打赏
举报

Very good!

sysu(死树)你真是天才！

不过最后一个问题，我做成ActiveX控件后，就好像不能用了。。。。

难道ActiveX控件和应用程序不同吗？？？

先给你分。。。

fengyvn 2003-06-21

打赏
举报

这样判断所有的消息,太耗资源了.

hansion3406 2003-06-20

打赏
举报

用消息挂住..如果鼠标点的位置是在你那个控件内..就设为无效..

sysu 2003-06-20

打赏
举报

那就再加上：鼠标移动时判断鼠标是否按下就行了
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_MOUSEMOVE then
if ((Integer(GetKeyState(VK_LBUTTON)) and Integer($80)) <> 0) then
begin
// Rect(0,0,Width,Height) 就是不能选中的区域
with WebBrowser1 do
if PtInRect(Rect(0,0,Width,Height), ScreenToClient(Msg.pt)) then
Handled := True;
end;
end;

Eastunfail 2003-06-20

打赏
举报

fdzxb 2003-06-20

打赏
举报

我尝试了，在embeddedwb控件范围内有效,但是有个问题就是embeddedwb页面上的链接不能点了。。。。。。。

有没有办法禁止刷黑同时又能点链接？？？？

fdzxb 2003-06-19

打赏
举报

在embeddedwb控件范围内也有效吗？？

sysu 2003-06-18

打赏
举报

用ApplicationEvents控件，在OnMessage事件中：
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then begin
// Rect(0,0,Width,Height) 就是不能选中的区域
with WebBrowser1 do
if PtInRect(Rect(0,0,Width,Height), ScreenToClient(Msg.pt)) then
Handled := True;
end;
end;