其他分享
首页 > 其他分享> > [Delphi]动态创建菜单

[Delphi]动态创建菜单

作者:互联网

在delphi中动态创建菜单的Demo。

实现功能:

1) 在Form的Oncreate事件中,动态创建子菜单。
2) 通过子菜单来设置Form上label的字体大小。
3) 动态创建的菜单,带有groupIndex属性以及单选标记。

代码如下:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    SaveAs1: TMenuItem;
    Print1: TMenuItem;
    PrintSetup1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    MenuItemSize: TMenuItem;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject); 
    procedure CheckFontSize(MenuItem:TmenuItem);
    procedure MenuItemFontSizeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
FontSize : array[0..7] of Integer = (6,8,10,12,14,16,18,20);

//这里,在Create时动态创建了8个子菜单
//同时,指定了OnClick事件
//并检测窗体内的一个label的字体大小
procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
  menuItem : TMenuItem;
begin
  for i := low(FontSize) to high(FontSize) do
    begin
      menuItem := TMenuItem.Create(Self);
      menuItem.Caption := IntToStr(FontSize[i]);
      menuItem.Tag := FontSize[i];
      menuItem.GroupIndex := 9;
      menuItem.RadioItem := True;
      menuItem.OnClick := MenuItemFontSizeClick;
      MenuItemSize.Insert(MenuItemSize.Count,menuItem);
    end;
    CheckFontSize(MenuItemSize);
end;

//动态创建的菜单项的单击事件
//设置字体大小,同时改变选中状态
procedure TForm1.MenuItemFontSizeClick(Sender: TObject);
begin
  lbl1.Font.Size := (sender as TMenuItem).Tag;  //寻找被按下菜单的Tag,然后赋值给字体大小
  (sender as TMenuItem).Checked := true; //选中
end;

//检测窗体内的一个label的字体大小
procedure TForm1.CheckFontSize(MenuItem:TmenuItem);
var 
  i:Integer;
begin
 ShowMessage(IntToStr(lbl1.Font.Size));
for i := 0 to 7 do
begin
   if lbl1.Font.Size = FontSize[i] then
   begin
     MenuItem.Items[i].Checked := true;
     Break;
   end;
end;
end;



end.

 

标签:菜单,end,TMenuItem,Delphi,动态创建,FontSize,menuItem,procedure
来源: https://www.cnblogs.com/jijm123/p/15266708.html