TRichView.com

Code: Select all

type
  TRichViewEdit = class( RVEdit.TRichViewEdit )
  private
    procedure WMNCRButtonDown(var Msg : TWMNCRButtonDown); message WM_NCRBUTTONDOWN;
  end;
...
//http://www.delphicorner.f9.co.uk/articles/forms3.htm
procedure TRichViewEdit.WMNCRButtonDown(var Msg : TWMNCRButtonDown);
begin
  if Form1.rve.VScrollVisible then
  if (Msg.HitTest = HTVSCROLL) then
  begin
    Form1.PopupMenu1.Popup( Mouse.CursorPos.X,Mouse.CursorPos.Y );
  end;
  if Form1.rve.HScrollVisible then
  if (Msg.HitTest = HTHSCROLL) then
  begin
    Form1.PopupMenu1.Popup( Mouse.CursorPos.X,Mouse.CursorPos.Y );
  end;
end;

Code: Select all

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Pt: TPoint;
  r: TRect;
begin

  //Processing WM_NCRBUTTONDOWN this way let me put a popupmenu on the native OS scrollbar.
  //Panel7 is the rve parent component
  Pt := Panel7.ScreenToClient( Mouse.CursorPos );
  r := Panel7.ClientRect;
  if Msg.message = WM_NCRBUTTONDOWN then
  begin
    r := Panel7.ClientRect;
    //Restrict this to just the vertical scrollbar:
    r.Left := r.Right - GetSystemMetrics( SM_CYVSCROLL );
    if PtInRect( r, Pt ) then
    begin
      //ReleaseCapture; //So far, not needed...
      //Only show the scroll popup if the native OS scrollbar is visible:
      if Form1.rve.VScrollVisible then
      begin
        //Use if VScrollMax > 0 here if you only want to show the popup
        //if it is active.
        ScrollPopup.Popup( Mouse.CursorPos.X,Mouse.CursorPos.Y );
      end;
      //The key to making this work: Shut off this message:
      Handled := true;
    end;
  end;