文件名称：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)