文件名称:
Delphi 利用INI文件创建窗口菜单.rar
开发工具:
文件大小: 30kb
下载次数: 0
上传时间: 2019-07-10
详细说明： 这是一个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;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
