Popupmenü zur Laufzeit erweitern

[marabu]

Beim Hinzufügen eines items ist kein großer Unterschied zwischen TPopupMenu und TTBPopupMenu:

Delphi-Quellcode:

procedure TDemoForm.CustomItemClick(Sender: TObject);
begin
  with Sender as TTBItem do
    ShowMessage(IntToStr(Tag));
end;

procedure TDemoForm.IdontCare;
var
  item: TTBItem;
begin
  item := TTBItem.Create(self);
  with item do
  begin
    Caption := '&Whatsup?';
    OnClick := CustomItemClick;
    Tag := ContextPopupMenu.Items.Count;
  end;
  ContextPopupMenu.Items.Add(item);
end;

Grüße vom marabu