为什么用 popupmenu1.Items.Add('项目'); 添加一个菜单项会出错啊。应该怎样添加啊。

Question

为什么用 popupmenu1.Items.Add('项目'); 添加一个菜单项会出错啊。应该怎样添加啊。

Answer 1

var 
   NewItem: TMenuItem;
....
popupmenu1.Items.Add(newitem);

Answer 2

同意楼上，然后再
newitem.caption:=....
进行设置等

Answer 3

procedure TForm1.AddButtonClick(Sender: TObject);
var
  index: Integer;
  NewItem: TMenuItem;
begin
  for index := 0 to 3 do
  begin
    NewItem := TMenuItem.Create(PopupMenu1); // create the new item
    PopupMenu1.Items.Add(NewItem);// add it to the Popupmenu
    NewItem.Caption := 'Menu Item ' + IntToStr(index);
    NewItem.Tag := index;
    NewItem.OnClick = PopupMenuItemsClick;// assign it an event handler
  end;end;procedure TForm1.PopupMenuItemsClick(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    case Tag of
      0:  ShowMessage('first item clicked');
      1:  ShowMessage('second item clicked');
      2:  ShowMessage('third item clicked');
      3:  ShowMessage('fourth item clicked');
    end;
  end;
end;To edit or destroy an item, grab its pointer via the Items property.procedure TForm1.EditButtonClick(Sender: TObject);
var
  ItemToEdit: TMenuItem;
begin
  ItemToEdit := PopupMenu.Items[1];
  ItemToEdit.Caption := 'Changed Caption';
}procedure TForm1.DestroyButtonClick(Sender: TObject);
var
  ItemToDelete: TMenuItem;
begin
  ItemToDelete := PopupMenu.Items[2];
  ItemToDelete.Free;
end;

Answer 4

我的真情奉献^_^
大家尽情享用吧，我会不定时的给大家来点精点var pulldown,item:Tmenuitem;
  pulldown:=popupmenu1.Items;
  item:=tmenuitem.Create(self);
  item.Caption:='项目';
  item.GroupIndex:=1;
  item.OnClick:=poptitleclick;
  pulldown.Insert(pulldown.count,item);
.......