Popupmenü implementieren

[Delphi.Narium]

Delphi-Quellcode:

var
  a: Integer;
  Item: TMenuItem;
begin
  npop1 := TPopupMenu.Create(self);
  for a := 1 to 3 do 
  begin
    item := TMenuItem.Create(nPop1);
    item.Name := 'item' + IntToStr(a);
    item.Tag := a;
    item.Caption := IntToStr(a);
    item.OnClick := PopupMenuItemsClick;
    nPop1.Items.Add(item);
  end;
end;