网站 › 『编程语言讨论求助区』 › 为啥这个简单式的新建右键菜单反而没效果？

冥界3大法王 发表于 2023-1-25 20:17

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

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 发表于 2023-1-25 22:36

不懂啊，法王牛逼。

查看完整版本: 为啥这个简单式的新建右键菜单反而没效果？