鼠标滚轮消息，对Memo控件有效果。对webbrowser控件没效果，帮个忙试试！

z109876543210 2011-12-16 04:26:45

这代码很多人需要吧，网上很难找。
虽然webbrowser不起效，其它控件还是有用的。谁帮试试！





function TForm1.GetHwnd(AHwnd:THandle):THandle;

begin

  //Result := FindWindowEx(ParentHwnd, 0,'Shell Embedding', nil);

  Result := FindWindowEx(AHwnd, 0,'Shell DocObject View', nil);

  Result := FindWindowEx(Result, 0,'Internet Explorer_Server', nil);

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

  SendMessage(GetHwnd(EmbeddedWB1.Handle), WM_MOUSEWHEEL, (-120*3) shl 16, (5 shl 16) or 5);//失败

  //SendMessage(Memo1.Handle), WM_MOUSEWHEEL, (-120*3) shl 16, (5 shl 16) or 5);//成功

end;

...全文

211 20 打赏收藏转发到动态举报

写回复

用AI写文章

20 条回复

切换为时间正序

请发表友善的回复…

发表回复

z109876543210 2012-01-09

打赏
举报

是啊。看来只能换方法了

erhan 2012-01-08

打赏
举报

uses mshtml

erhan 2012-01-08

打赏
举报

IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).Focus;
IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).scroll(100,100);

用这个吧，效果一样的，直接鼠标消息那个我也没做出来，放弃了，呵呵

ydtuiguang 2011-12-25

打赏
举报

牛贴!!!!!!!!!!!!!!!!

ydtuiguang 2011-12-24

打赏
举报

强贴!@@@@@@@@@@@@

z109876543210 2011-12-23

打赏
举报

好帖！！！！！！！！！

z109876543210 2011-12-22

打赏
举报

难道？？？！

z109876543210 2011-12-22

打赏
举报

接分！！！！！！！！！

ydtuiguang 2011-12-21

打赏
举报

接分！！！！！！！！！

ydtuiguang 2011-12-21

打赏
举报

SendMessage(GetHwnd(EmbeddedWB1.Handle), WM_MOUSEWHEEL, (-120*3) shl 16, (5 shl 16) or 5);//失败

ydtuiguang 2011-12-20

打赏
举报



function TForm1.GetHwnd(AHwnd:THandle):THandle;

begin

  //Result := FindWindowEx(ParentHwnd, 0,'Shell Embedding', nil);

  Result := FindWindowEx(AHwnd, 0,'Shell DocObject View', nil);

  Result := FindWindowEx(Result, 0,'Internet Explorer_Server', nil);

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

  SendMessage(GetHwnd(EmbeddedWB1.Handle), WM_MOUSEWHEEL, (-120*3) shl 16, (5 shl 16) or 5);//失败

  //SendMessage(Memo1.Handle), WM_MOUSEWHEEL, (-120*3) shl 16, (5 shl 16) or 5);//成功

end;