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);
MainMenu copysetup是什么意思
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

更多阅读

怎样理解换手率是什么意思? 换手率是什么意思

怎样理解换手率是什么意思? 1、 换手率是指个股日成交量与其流通盘的比值,它反映了个股的活跃程度,在实战操作之中,对量的研判是非常重要的,换手率是值得长期关注的指标。其原理和方法: 大家知道,热门股的重要特征是股价表现活跃、成交量

手机刷机是什么意思 手机刷机线

刷机是什么意思刷机就是给智能手机重装系统,进行系统安装的操作。就像是给自己的电脑从新装系统一样,刷机的目的在于提高整机运行性能.升级原来的系统,能够修正系统bug让手机运行得更加稳定.更换自己喜欢的版本.删除官方手机自带的一

Macd金叉是什么意思,Kdj金叉是什么意思 macd kdj rsi金叉选股

今天我们来说一下,Macd金叉是什么意思,Kdj金叉是什么意思这俩个问题。首先大家要长得,股市技术面上看,是存在金叉和死叉二种概念的,金叉的出现一般意味着上涨,死叉的出现一般意味着下跌。但这里建议大家看金叉或者死叉时,不要只看日K线,还

4G网络是什么意思4G手机什么时候上市 q板上市是什么意思

4G网络是什么意思4G手机什么时候上市——简介4G网络是什么意思4G手机什么时候上市:中国第四代无线通信网络系统技术诞生了,而且是中国人的技术!国人该为之骄傲!第四代无线通信网络系统技术统称为4G网络,世界科研人员还在研发当中!也是未来

声明:《MainMenu copysetup是什么意思》为网友最好有梦想分享!如侵犯到您的合法权益请联系我们删除