unit1.pas

《Delphi百例》源码?禗elphi百例》源码

unit Unit1;

interface

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

type
  TMenuNotifyEvent = procedure(Sender: TMenuItem) of object;{说明一个菜单单击事件类型}
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    procedure AddMenuText(MenuText: String);
    procedure MenuClick(Sender:TMenuItem);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NewMenuItem:TMenuItem;{声明一个全局变量}

implementation

{$R *.DFM}

procedure TForm1.AddMenuText(MenuText: String);
{动态加入菜单}
var
  EventName:TMenuNotifyEvent;
  NewMenuItem:TMenuItem;
begin
  NewMenuItem:=TMenuItem.Create(self);{创建菜单实例}
  NewMenuItem.Caption:=MenuText;//菜单项内容
  EventName:=MenuClick;
  NewMenuItem.OnClick:=TNotifyEvent(EventName);{指定菜单单击事件}
  MainMenu1.Items[MainMenu1.Items.Count-1].Add(NewMenuItem);{将菜单实例加到主菜单中}
end;

procedure TForm1.MenuClick(Sender:TMenuItem);
{菜单单击事件函数}
begin
  showmessage(Sender.Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
label Write;
var
Search:TSearchRec;
begin
  with Search do
    begin
      if FindFirst(Getcurrentdir+'\*.*',0,Search)=0 then
      begin
      Write:
      AddMenuText(Name);
      if FindNext(Search)=0 then
        goto Write;
      end;
    end;
end;

end.