unitfrmmainmenu.pas

《Delphi7编程100例》代码,书配资料

unit unitFrmMainMenu;

interface

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

type
  TfrmMainMenu = class(TForm)
    MainMenu1: TMainMenu;
    mmiFile: TMenuItem;
    mmiNew: TMenuItem;
    mmiOpen: TMenuItem;
    mmiEdit: TMenuItem;
    mmiCut: TMenuItem;
    mmiCopy: TMenuItem;
    ilImageList1: TImageList;
    mmiXs: TMenuItem;
    N1: TMenuItem;
    mmiLast: TMenuItem;
    mmiMy: TMenuItem;
    mmiAbout: TMenuItem;
    mmiAuthor: TMenuItem;
    procedure mmiXsClick(Sender: TObject);
    procedure mmiCutClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OnClickDeleteEvent(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmMainMenu: TfrmMainMenu;

implementation

{$R *.dfm}

procedure TfrmMainMenu.mmiXsClick(Sender: TObject);
begin
  mmiXs.Checked := not mmiXs.Checked;
  if not mmiXs.Checked then
    MainMenu1.Images := nil
  else
    MainMenu1.Images := ilImageList1;
end;

procedure TfrmMainMenu.mmiCutClick(Sender: TObject);
begin
  ShowMessage('this is a sample');
end;

procedure TfrmMainMenu.FormCreate(Sender: TObject);
var
  mmiTemp: TMenuItem;
begin
  //动态载入菜单项
  mmiTemp := TMenuItem.Create(MainMenu1);
  mmiTemp.Name := 'mmiAdd';
  mmiTemp.Caption := '动态加入的菜单项';
  mmiTemp.OnClick := OnClickDeleteEvent;
  mmiFile.Add(mmiTemp);
  ModifyMenu(MainMenu1.Handle, 2, mf_ByPosition or mf_Popup
    or mf_Help, mmiAbout.Handle, '关于');
end;

procedure TfrmMainMenu.OnClickDeleteEvent(Sender: TObject);
var
  mmiTemp: TMenuItem;
begin
  if Sender is TMenuItem then
  begin
    mmiTemp := sender as TMenuItem;
    (mmiTemp).Parent.Delete(mmiTemp.Parent.IndexOf(mmiTemp));
  end;
end;

end.