F
flanker
Unregistered / Unconfirmed
GUEST, unregistred user!
// 屏蔽鼠标刷黑
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 EmbeddedWB1 do
if PtInRect(Rect(0,0,Width-15,Height-15), ScreenToClient(Msg.pt)) then
Handled := True;
end;
end;
为什么我在应用程序中可用,做成ActiveX就不起作用了....
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 EmbeddedWB1 do
if PtInRect(Rect(0,0,Width-15,Height-15), ScreenToClient(Msg.pt)) then
Handled := True;
end;
end;
为什么我在应用程序中可用,做成ActiveX就不起作用了....