Prerequisites
- TMS FNC Core installed and the runtime package added to the project.
Add the component
- Drop
TTMSFNCPopupMenu from the TMS FNC UI palette page onto a form.
- 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;
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.