为啥这个简单式的新建右键菜单反而没效果？

冥界3大法王

Delphi





procedure TForm5.FormCreate(Sender: TObject);     //这种添加不报错，没效果！
begin
  PopupMenu1 := TPopupMenu.Create(Self);
  with PopUpMenu1.Items do
  begin
    Add(NewItem('菜单一', 0, False, True, MenuItem1Click, 0, 'MenuItem1')); =====》好像都没有菜单的Caption吧？ 是这个原因不？
    Add(NewItem('菜单二', 0, False, True, MenuItem2Click, 0, 'MenuItem2'));
    Add(NewLine);                                                                                                 // 增加一个分割条
    Add(NewItem('菜单三', 0, False, True, MenuItem3Click, 0, 'MenuItem3'));
  end;   
end;





procedure TForm5.MenuItem1Click(Sender: TObject);
begin
  ShowMessage('H1');
end;


procedure TForm5.MenuItem2Click(Sender: TObject);
begin
  ShowMessage('H2');
end;


procedure TForm5.MenuItem3Click(Sender: TObject);
begin
  ShowMessage('H3');
end;

cxj98

不懂啊，法王牛逼。