这里所谓的动态菜单是指菜单项是变化的，它随程序的操作变化而变化。例如在很多应用程序的“文件”菜单下列出了最近多少次曾经使用过的文件名，这是最常见的动态菜单用法，Microsoft Word 的“文件”菜单就是一例。
动态菜单的使用为操作应用程序提供了极大的方便。用Delphi编写应用程序我们也可以实现这样的功能，其步骤如下。
① 首先要确定程序的动态菜单的数据来源（这个数据为一个字符串，就是我们在菜单上看到的菜单标题，以下称之为“动态菜单标题”），即要确定动态菜单标题是来自Windows的系统注册表，还是来自一个数据库，还是来自一个子目录，这要看程序的功能而定。这里假设主窗体名为MainForm，上面已有主菜单，其动态菜单的数据源是一个String类型的变量，名称为SubMenuItemSource；
② 确定生成的动态菜单要做什么事情，也即要定义动态菜单的OnClick()事件，例如，动态菜单标题来自一个磁盘文件名时，那么程序在响应OnClick()事件时可能的操作是要打开选中的文件。为此我们要在菜单所在的主窗体模块的单元程序的数据定义Type后添加一个自定义的事件过程MyClick()，如下：
unit MainForm;
┇
type
┇
procedure MyClick(Sender: TObject); //自定义动态菜单响应事件
┇
end;
然后要编写MyClick的具体内容，示例如下：
procedure TMainForm.MyClick(Sender: TObject);
//动态菜单OnClick事件响应
begin
ShowMessage(TMenuItem(Sender).Caption);//显示选中的动态菜单标题,
end;
这里调用ShowMessage标准例程(在Dialogs.pas中)显示TMenuItem(Sender).Caption，它就是选择的菜单项Caption，类似用TMenuItem(Sender).Name则是选择的菜单项的Name。当然在这里MyClick()（就是OnClick事件）仅显示一个选中的菜单标题，但你可以改变其内容，使其完成其它你需要的工作，重要的是要知道TMenuItem(Sender).Caption；
③ 编写程序将动态菜单标题添加到指定的菜单顶下，并将其与OnClick()事件联系起来。
将以下程序段添加到MainForm的OnCreate事件过程中，可在程序启动时完成动态菜单的动态生成：
procedure TMainForm.FormCreate(Sender: TObject);
var
addSubItem:TMenuItem;
i:Integer;
begin
for i:=0 to N do //N等于要添加的动态菜单数目,需事先定义为数值型变量,并赋值
begin
addSubItem:= TMenuItem.Create(Self);
addSubItem.Name := ‘A’+IntToStr(i);
addSubItem.Caption := SubMenuItemSource; // 步骤①的SubMenuItemSource应先赋值
FileOpenItem.Add(addSubItem); //在名称为FileOpenItem的菜单项下添加子菜单
addSubItem.OnClick:=MyClick; // 步骤②的MyClick(),自定义菜单要响应的事件
end
end;
上述方法的特点是在程序编写中，不需要使用Windows 消息则可完成动态菜单设计。如果要使用Windows 消息，Delphi也可以做到，但要响应TApplication的OnMessage事件。
上述方法同样可在C++Builder中使用，只需要改变其语法为C++。