MainMenu copysetup是什么意思

1.
//隐藏与显示菜单
Self.Menu :=nil; {隐藏菜单}
Self.Menu := MainMenu1; {显示菜单}

2.

右键 Create submenu 添加下级菜单

3.

菜单历史信息

unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1:TMainMenu;
OpenDialog1:TOpenDialog;
mniFile:TMenuItem;
mniOpen:TMenuItem;
N1:TMenuItem;
mniExit:TMenuItem;
proceduremniOpenClick(Sender: TObject);
procedurealert(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.alert(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Caption);
end;

procedure TForm1.mniOpenClick(Sender: TObject);
var
mni: TMenuItem;
event: TNotifyEvent;
begin
if not OpenDialog1.Execute then Exit;

mni := TMenuItem.Create(Self);

mni.Caption := OpenDialog1.FileName;
event := alert;
mni.OnClick := event;

MainMenu1.Items.Items[0].Insert(2, mni);

if MainMenu1.Items.Items[0].Count = 4then
begin
mni :=TMenuItem.Create(Self);
mni.Caption:= '-';
MainMenu1.Items.Items[0].Insert(3,mni);
end;
end;

end.

爱华网本文地址 » http://www.aihuau.com/a/25101016/296239.html