Table of Contents

Getting started with TMS FNC Popup Menu

Prerequisites

  • TMS FNC Core installed and the runtime package added to the project.

Add the component

  1. Drop TTMSFNCPopupMenu from the TMS FNC UI palette page onto a form.
  2. Add items at design time via the Items collection editor, or in code:
var
  Item: TTMSFNCMenuItem;
begin
  Item := PopupMenu1.Items.Add;
  Item.Text := 'Copy';
  Item.OnClick := HandleCopy;

  Item := PopupMenu1.Items.Add;
  Item.Kind := mkSeparator;

  Item := PopupMenu1.Items.Add;
  Item.Text := 'Paste';
  Item.OnClick := HandlePaste;
end;

Show the menu

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
    PopupMenu1.Popup(X, Y);
end;

Handle item click

procedure TForm1.HandleCopy(Sender: TObject);
begin
  // copy logic
end;

Next steps

  • Guides — sub-menus, embedded controls, appearance, and keyboard navigation.
  • API reference — full class reference.