TdxBarPopupMenu Example

• Jul 29, 2021

This example demonstrates how to activate a TdxBarPopupMenu when an end-user right-clicks in the form. The following code snippet represents a form’s OnMouseDown event handler.

Delphi

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxBarPopupMenu1.PopupFromCursorPos;
end;

C++

void __fastcall TForm1::FormMouseDown(TObject * Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Button == mbRight)
    dxBarPopupMenu1->PopupFromCursorPos();
}