BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

  ///
  // Notify the browser that the window hosting it is about to be moved or
  // resized. This function is only used on Windows and Linux.
  ///

Code: Select all

// Call the parent method to dismiss any existing popups.

Code: Select all

// Notify DesktopWindowTreeHostWin of move events so that screen rectangle
  // information is communicated to the renderer process and popups are
  // displayed in the correct location.

Code: Select all

///
// Set to true (1) before calling Windows APIs like TrackPopupMenu that enter a
// modal message loop. Set to false (0) after exiting the modal message loop.
///

Code: Select all

WM_MyMoving = WM_USER + 145;
WM_MyEnterMenuLoop = WM_USER + 146;
WM_MyExitMenuLoop = WM_USER + 147;

...

procedure WMMove(var aMessage: TWMMove); message WM_MOVE; 
procedure WMMoving(var aMessage: TMessage); message WM_MyMoving; 
procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_MyEnterMenuLoop; 
procedure WMExitMenuLoop(var aMessage: TMessage); message WM_MyExitMenuLoop;

...

var
   PrevWndProc: WNDPROC;

...

function MyWndProc(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;
begin
   if uMsg = WM_ENTERMENULOOP then
   begin
      SendMessage(Ahwnd, WM_MyEnterMenuLoop, WParam, lParam);
   end
   else if uMsg = WM_EXITMENULOOP then
   begin
      SendMessage(Ahwnd, WM_MyExitMenuLoop, WParam, lParam);
   end
   else if uMsg = WM_MOVING then
   begin
      SendMessage(Ahwnd, WM_MyMoving, WParam, lParam);
   end
   else
   begin
      //prev wndproc
      Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam);
   end;
end;

procedure TMainForm.FormCreate(Sender: TObject); 
begin
   PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle, GWL_WNDPROC, PtrUInt(@MyWndProc)));