Delphi7菜单历史显示

Delphi7通过插入菜单项显示历史记录信息

1、 启动Delphi7开发环境，进入默认工程的Form1窗体界面。添加一个MainMenu1控件，创建一个标题为文件的主菜单项，并在其下添加两个子菜单项，分别命名为打开和退出，完成菜单结构的布局与设置。

2、 在Form1窗体中添加Opendiag控件，位于dialog组件面板内。

3、 定义一个事件处理函数，用于响应菜单历史记录的点击操作。

4、 在文件菜单中选择打开子项，进入其点击事件方法，并添加如下代码。

5、 var

6、 重新表述如下：

7、 创建历史信息菜单项，显示文件名作为标题，绑定自定义点击事件，并将其插入到打开菜单项的后面。

8、 按下F9运行程序后，选择文件菜单中的打开选项，将弹出文件选择对话框。选定文件并关闭对话框后，再次点击文件菜单，会发现新增了一个子菜单项，其名称显示为所选文件的路径与文件名。单击该子菜单项，系统将弹出一个对话框，显示该文件的具体路径信息。

9、 关闭程序并返回开发界面，选择文件菜单中的退出项，在其点击事件中添加相应代码即可。

10、 终止应用程序运行，关闭当前程序进程。

11、 按F9运行程序，选择文件菜单中的退出项，程序即可正常关闭。