Delphi WebBrowser 마우스 오른쪽 버튼 클릭 방법

800 단어 DelphiWebBrowser
uses MSHtml;

//     additional   TApplicationEvents  ,     . TApplicationEvents OnMessage         :
//      

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  mPoint: TPoint;
begin
  if IsChild(WebBrowser.Handle, Msg.Hwnd) and
    ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
  begin
    GetCursorPos(mPoint); //      
    pm5.Popup(mPoint.X, mPoint.Y); //  popupmenu1   
    Handled := True;
  end;
end;

  
//      

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  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;

좋은 웹페이지 즐겨찾기