【文件属性】:
文件名称:Delphi 利用INI文件创建窗口菜单.rar
文件大小:30KB
文件格式:RAR
更新时间:2022-07-30 03:29:50
Delphi源码-界面编程
这是一个Delphi 7.0 利用INI文件创建窗口菜单的范例源码,在Delphi7环境下可直接编译运行,将创建的菜单内容按照以下顺序保存在INI文件中,程序会自动读取INI文件,生成菜单:[菜单]
文件=打开|保存|退出|
全过程核心代码如下:
IniFile := TIniFile.Create('..\ini.ini');//打开INI文件
Va := IniFile.ReadString('菜单','文件','');//读取小节参数值
mainm := TMainMenu.Create(form1);//创建主菜单
Im1 := TMenuItem.Create(mainm);//创建一级菜单
Im1.Caption := '文件';
mainm.Items.Add(Im1); //将一级菜单添加到主菜单
while Va<>'' do
begin
Idx := Pos('|',Va);//查找|标志符的位置
Str := Copy(Va,1,Idx-1);//截取|号分开的菜单标题
Im2 := TMenuItem.Create(Im1); //创建二级菜单
Im2.Caption := Str;//定义菜单标题
if Str='\u6253\u5f00' then
Im2.OnClick:=MenuClick;
if Str='\u9000\u51fa' then
Im2.OnClick := Button1.OnClick;//定义单击事件
Im1.Add(Im2);//将二级菜单添加到一级菜单
delete(Va,1,Idx);//删除截取的字符
end;
【文件预览】:
codesc.net
----ini.ini(30B)
----inimenu()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(6KB)
--------Unit1.dfm(47KB)
--------Project1.cfg(461B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(2KB)