Implement OnContextPopup for objects

  • Hello,

    default components have the event OnContextPopup, which is helpful to popup a DevEx menu for example, instead the standard popup menu.

    Can you implement a OnObjectContextPopup but with an additional parameter: the clicked object...

    You are doing something like this in TWPCustomRtfEdit.DoContextPopup for images, but i have no chance to act on TextBoxes! You can give the CurrentTextObjectUnderMouse to the event...

    Regards, Kai Brendel

    • Offizieller Beitrag

    You can use TextObjectMouseDown.

    procedure TForm1.WPRichText1TextObjectMouseDown(Sender: TWPCustomRtfEdit;
    pobj: TWPTextObj; obj: TWPObject; Button: TMouseButton; Shift: TShiftState; X,
    Y: Integer);
    begin
    if Button=mbRight then
    PopupMenu1.Popup( Mouse.CursorPos.X, Mouse.CursorPos.Y );
    end;


    The OnContextPopup makes sense, since it is also triggered by the special context menu key. Otherwise the required functionality can be achieved with OnMouseDown.