TMainMenu带历史信息的菜单带历史信息的菜单(动态插入Insert)

//TMainMenu带历史信息的菜单带历史信息的菜单(动态插入Insert) 
//动态插入菜单项，首先要求创建TMenuItem菜单对象

所需组件 
    TMainMenu
    TOpenDialog


//为TMainMenu创建
File
    Open(name:Open1)
    ------------
    Exit(name:Exit1)

//main code here;
uses ShellApi;

  public
    { Public declarations }
    procedure RunIt(Sender: TObject);

//实现添加历史菜单    
procedure TForm1.RunIt(Sender: TObject);
begin
  if Sender is TMenuItem then
    ShowMessage(TMenuItem(Sender).Caption); //使用shellExecute执行选中的菜单
end;

procedure TForm1.open2Click(Sender: TObject);
var
  Temp: TMenuItem;
  event: TNotifyEvent;
begin
  if not OpenDialog1.Execute then Exit;
  Temp := TMenuItem.Create(Self);
  Temp.Caption := OpenDialog1.FileName;
  event := RunIt;
  Temp.OnClick := event;

  MainMenu1.Items.Items[0].Insert(2, Temp);
  if MainMenu1.Items.Items[0].Count = 4 then
  begin
    Temp := TMenuItem.Create(Self);
    Temp.Caption := '-';
    MainMenu1.Items.Items[0].Insert(3,Temp);
  end;
end;    
//功能
//当用户单击历史菜单时运行选中的菜单项

//完成 -> 动态生成菜单项内容

通过 Wiz 发布