文档章节

菜单的历史信息

涂孟超
 涂孟超
发布于 2014/09/26 15:32
字数 127
阅读 12
收藏 0
本例效果图:


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;
    procedure mniOpenClick(Sender: TObject);
    procedure alert(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);
  mni.Caption := OpenDialog1.FileName;
  event := alert;
  mni.OnClick := event;

  MainMenu1.Items.Items[0].Insert(2, mni);

  if MainMenu1.Items.Items[0].Count = 4 then
  begin
    mni := TMenuItem.Create(Self);
    mni.Caption := '-';
    MainMenu1.Items.Items[0].Insert(3,mni);
  end;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/04/28/1175217.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
C#实例:5个.net经典例子(窗体与界面设计)

C#实例:5个.net经典例子(窗体与界面设计) 实例001 带历史信息的菜单 实例说明 在开发图纸管理软件时,要求在菜单上记录用户最近打开的档案或图纸,以方便下次使用。如图1.1所示,单击“文...

庸人谷
2012/11/12
1K
2
Source Code Control (源代码控制)

XCode XCode支持使用SVN管理代码。 配置XCode: 1. 在Xode的菜单中选择 SCM -> Configure Repositories,填写SVN服务器的信息。 2. 然后选SCM -> Repositories 你就可以Import, Check Out你想...

失足处男的倒霉孩子
2013/12/26
1K
0
厦门不动产登记系统一期--未完成部分2017.1.10

一、未完成部分 1、页面打印相关问题 2、页面字典字段无数据(比如:受理移交审核--接收部门,排架--排架选择) 3、页面顶部与底部功能按钮 4、归档--移交科室tab页面 5、初审-楼盘信息-单元...

哄炎神
2017/01/10
4
0
删除 Zune 同步设置和历史记录教程

如果您的PC正在给多部WP7手机同步数据,而不想保留上一部WP7手机的同步信息和设置,那就来看看这里推出的删除Zune同步设置和历史记录教程吧。通过该操作可以快速的删除Zune软件与WP7手机同步...

鉴客
2012/02/23
1K
0
翻译插件TranslationPluginV1.3.0,支持单词朗读

IntelliJ IDEA/Android Studio 翻译插件TranslationPlugin V1.3.0正式发布。 TranslationPlugin 是一个 IntelliJ IDEA/Android Studio 翻译插件,提供中英互译。 更新内容: 单词朗读 UI优化 ...

丶一意孤行
2016/10/12
1K
7

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
11
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
9
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部