unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cd:TMainMenu;    //定义基类型为TMainMenu的变量
  ff:TMenuItem;    //定义基类型为TMenuItem的变量
  cdx:Array[1..4]of TMenuItem;//定义基类型为TMenuItem的数组
  k:Integer;
begin
  cd:=TMainMenu.Create(self);//创建主菜单
  ff:=TMenuItem.Create(self);//创建主菜单实例
  ff.Caption:='File';        //主菜单的名称为“File”
  cd.Items.Add(ff);          //添加主菜单从而显示出来
  for k:=1 to 4 do
    cdx[k]:=TMenuItem.Create(self);//给File菜单创建4个菜单项
  cdx[1].Caption:='New';   //给File菜单下的菜单项取名
  cdx[2].Caption:='Open';
  cdx[3].Caption:='Copy';
  cdx[4].Caption:='Exit';
  for k:=1 to 4 do
    cd.Items[0].Add(cdx[k]);//给File菜单添加4个菜单项 
end;

end.