delphi는 웹 브라우저의 스크롤 바를 숨기고 오른쪽 단추를 차단합니다

727 단어 urlDelphiWebBrowser
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin    //         
  WebBrowser1.oleobject.Document.body.Scroll := 'no';
  WebBrowser1.oleobject.Document.documentElement.style.overflow := 'hidden';
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  //    ApplicationEvents
  with Msg do
  begin
    if not IsChild(WebBrowser1.Handle,hwnd) then Exit;
    Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
  end;  
end;


좋은 웹페이지 즐겨찾기