Delphi动态创建菜单

最新推荐文章于 2021-02-01 01:56:51 发布

原创最新推荐文章于 2021-02-01 01:56:51 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer

这篇博客介绍了一个在Delphi中动态创建菜单的实现过程。通过代码示例展示了如何清除旧菜单项，根据数据库查询结果动态插入新菜单项，并为每个菜单项设置点击事件。同时，文中还指出了在处理菜单项的Caption属性时需要注意的细节问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.PopupMenu2ListSender();
var
    addSubItem:TMenuItem;
    j:Integer;
begin
QueryPopMenu.Close ;
QueryPopMenu.FetchParams ;
QueryPopMenu.Params.ParamByName('AREA').AsString :=Area;
QueryPopMenu.Open ;
While(PM2Count>0) do
Begin
    PopupMenu2.Items[PM2Count-1].Free ; //if from 0 to PM2Count-1 cann't get the correct                                  result,unless take the desc .
    Dec(PM2Count);
End;
PM2Count:=0;
While(not QueryPopMenu.Eof)do
Begin
    addSubItem:= TMenuItem.Create(Self);
    addSubItem.Name := QueryPopMenu.fieldByName('eqpgroup').AsString;

    addSubItem.Caption := QueryPopMenu.fieldByName('eqpgroup').AsString;
    PopupMenu2.Items.Insert(PM2Count,addSubItem);
    addSubItem.OnClick :=PopupMenu2Click;
    INC(PM2Count);
    QueryPopMenu.Next ;
End;
end;