1,184
社区成员
发帖
与我相关
我的任务
分享
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;
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;