在Delphi应用程序中使用菜单或弹出菜单时，在大多数情况下，都是在设计时创建菜单项的。每个菜单项都由一个TMenuItem Delphi类表示。当用户选择（单击）一个项目时，OnClick事件将被触发，以供您（作为开发人员）获取该事件并响应它。

在某些情况下，菜单项在设计时未知，但需要在运行时添加（动态实例化）。

在运行时添加tmenuitem

假设Delphi表单上有一个名为“PopupMenu1”的TPopupMenu组件，要在弹出菜单中添加一项，您可以编写如下代码：

var menuItem : TMenuItem; begin menuItem := TMenuItem.Create(PopupMenu1) ; menuItem.Caption := 'Item added at ' + TimeToStr(now) ; menuItem.OnClick := PopupItemClick; //assign it a custom integer value.. menuItem.Tag := GetTickCount; PopupMenu1.Items.Add(menuItem) ; end;

笔记

• 在上面的代码中，PopupMenu1组件中添加了一项。请注意，我们为Tag属性指定了一个整数值。Tag属性（每个Delphi组件都有）设计为允许开发人员分配作为组件一部分存储的任意整数值。
• GetTickCount API函数检索自Windows启动以来经过的毫秒数。
• 对于OnClick事件处理程序，我们指定了“PopupItemClick”——具有*正确*签名的函数名。

procedure TMenuTestForm.PopupItemClick(Sender: TObject) ; var menuItem : TMenuItem; begin if NOT (Sender is TMenuItem) then begin ShowMessage('Hm, if this was not called by Menu Click, who called this?!') ; ShowMessage(Sender.ClassName) ; exit; end; menuItem := TMenuItem(sender) ; ShowMessage(Format('Clicked on "%s", TAG value: %d',[menuItem.Name, menuItem.Tag])) ; end;

重要的

• 单击动态添加的项目时，将执行“PopupItemClick”。为了区分一个或多个运行时添加的项目（所有项目都在PopupItemClick中执行代码），我们可以使用Sender参数：

“PopupItemClick”方法首先检查发送者是否实际上是一个TMenuItem对象。如果该方法是作为菜单项OnClick事件处理程序的结果执行的，那么我们只需显示一条对话框消息，其中包含将菜单项添加到菜单时分配的标记值。

tmenuitem中的自定义字符串

在实际应用程序中，您可能需要更大的灵活性。假设每个项目将“代表”一个网页-需要一个字符串值来保存网页的URL。当用户选择此项时，您可以打开默认web浏览器并导航到与菜单项一起分配的URL。

下面是一个定制的TMenuItemExtended类，它配备了一个定制字符串“Value”属性：

type TMenuItemExtended = class(TMenuItem) private fValue: string; published property Value : string read fValue write fValue; end;

下面介绍如何将此“扩展”菜单项添加到PoupMenu1：

var menuItemEx : TMenuItemExtended; begin menuItemEx := TMenuItemExtended.Create(PopupMenu1) ; menuItemEx.Caption := 'Extended added at ' + TimeToStr(now) ; menuItemEx.OnClick := PopupItemClick; //assign it a custom integer value.. menuItemEx.Tag := GetTickCount; //this one can even hold a string value menuItemEx.Value := 'http://delphi.about.com'; PopupMenu1.Items.Add(menuItemEx) ; end;

现在，必须修改“PopupItemClick”以正确处理此菜单项：

procedure TMenuTestForm.PopupItemClick(Sender: TObject) ; var menuItem : TMenuItem; begin //...same as above if sender is TMenuItemExtended then begin ShowMessage(Format('Ohoho Extended item .. here''s the string value : %s',[TMenuItemExtended(Sender).Value])) ; end; end;

这就是全部。您可以根据自己的需要扩展TMenuItemExtended。创建定制的Delphi组件是寻找关于创建自己的类/组件的帮助的地方。

笔记

要实际打开默认Web浏览器，可以使用Value属性作为ShellExecuteEx API函数的参数。