文档章节

Windows 编程[12] - 菜单与菜单资源(一)

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 676
阅读 4
收藏 0
点赞 0
评论 0
假如我们用 TMainMenu 控件设计如下菜单:



该菜单在窗体源文件中是这样存储的:
object MainMenu1: TMainMenu
Left = 160
Top = 104
object File1: TMenuItem
  Caption = '&File'
  object New1: TMenuItem
    Caption = '&New'
  end
  object Open1: TMenuItem
    Caption = '&Open'
  end
  object Save1: TMenuItem
    Caption = '&Save'
  end
  object SaveAs1: TMenuItem
    Caption = 'Save &As'
  end
  object N1: TMenuItem
    Caption = '-'
  end
  object Exit1: TMenuItem
    Caption = 'E&xit'
  end
end
object Edit1: TMenuItem
  Caption = '&Edit'
  object Cut1: TMenuItem
    Caption = 'Cu&t'
  end
  object Copy1: TMenuItem
    Caption = '&Copy'
  end
  object Paste1: TMenuItem
    Caption = '&Paste'
  end
end
object Help1: TMenuItem
  Caption = '&Help'
  object About1: TMenuItem
    Caption = '&About'
  end
end

 
 
 
 
 

 

 

  
在 VC 中, 菜单设计是要保存在资源源文件(*.rc)中, 不管是 VC 还是 Delphi 用什么临时储存方式, 但最终都会被编译成相同的资源文件(*.res).

在 Delphi 中如果想要更灵活地使用菜单, 也回避不了使用资源文件.

原来在学习资源文件时曾经简单接触过菜单资源( 参考以前的内容), 不过这次要站在 Windows 的角度, 涉及更多内容!

下面是和上例对应的资源文件.

建立步骤:

1、新建控制台工程, 保存! 然后再建立资源文件;

2、建立资源文件: File -> New -> Other... -> Text , 写入下面资源文件代码, 和工程保存在相同文件夹, 保存为 *.rc, 我这里使用的是: TestRes.rc;

3、然后从工程中导入资源文件(Project Manager 窗口, 右键点击工程名 - Add);
此时工程代码会自动增加一行: {$R 'TestRes.res' 'TestRes.rc'}

4、注意: 在次以后在工程中修改资源名, 工程代码会随之改变; 修改资源代码后需要先保存, 编译时才有效!

5、另外, 菜单资源的写法还是挺复杂的、功能也很强大; 后面的例子再说.
MyMenu1 Menu
Begin
  Popup "&File"
  Begin
    MenuItem "&New"
    MenuItem "&Open"
    MenuItem "&Save"
    MenuItem Separator
    MenuItem "E&xit"
  End

  Popup "&Edit"
  Begin
    MenuItem "Cu&t"
    MenuItem "&Copy"
    MenuItem "&Paste"
  End

  Popup "&Help"
  Begin
    MenuItem "&About"
  End
End

 
 
 
 
 

 

 

  
调用代码:

和原来的程序只有两行不同:

1、{$R 'TestRes.res' 'TestRes.rc'} --- 这是插入资源文件
2、cls.lpszMenuName := 'MyMenu1'; --- 这是指定菜单

program Project1;

{$R 'TestRes.res' 'TestRes.rc'}

uses
  Windows,
  Messages,
  SysUtils;

function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_DESTROY : PostQuitMessage(0);
  else
    Result := DefWindowProc(wnd, msg, wParam, lParam);
  end;
end;

function RegMyWndClass: Boolean;
var
  cls: TWndClass;
begin
  cls.style         := CS_HREDRAW or CS_VREDRAW;
  cls.lpfnWndProc   := @WndProc;
  cls.cbClsExtra    := 0;
  cls.cbWndExtra    := 0;
  cls.hInstance     := HInstance;
  cls.hIcon         := 0;
  cls.hCursor       := LoadCursor(0, IDC_ARROW);
  cls.hbrBackground := HBRUSH(COLOR_WINDOW + 1);
  cls.lpszMenuName  := 'MyMenu1'; {在这里指定菜单资源, MyMenu1 是编辑资源文件时命名的}
  cls.lpszClassName := 'MyWnd';
  Result := RegisterClass(cls) <> 0;
end;

{程序入口}
const
  tit = 'New Form';
  ws = WS_OVERLAPPEDWINDOW;
  x = 100; y = 100; w = 300; h = 180;
var
  hWnd: THandle;
  Msg : TMsg;
begin
  RegMyWndClass;
  hWnd := CreateWindow('MyWnd', tit, ws, x, y, w, h, 0, 0, HInstance, nil);
  ShowWindow(hWnd, SW_SHOWNORMAL);
  UpdateWindow(hWnd);

  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end.

 
 
 
 
 

 

 

  
效果图:



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

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
JAVA实现经典坦克大战及源代码下载

一、简单介绍 这是一个功能相对全的JAVA版坦克大战,界面绘制是通过JAVA的图形化用户界面完成的,包括了菜单界面和游戏界面。其中菜单界面可以供玩家选择重新开始游戏、暂停、继续、是否播放背...

a1275302036 ⋅ 2017/01/08 ⋅ 0

Github Atom 1.12.0 和 1.13.0-beta0 发布

Github Atom 1.12.0 和 1.13.0-beta0 发布了。 Atom 是 Github 专门为程序员推出的一个跨平台文本编辑器。具有简洁和直观的图形用户界面,并有很多有趣的特点:支持CSS,HTML,JavaScript等网...

局长 ⋅ 2016/11/10 ⋅ 7

Windows快捷键高手用法

windows + L 锁屏 windows + E 打开电脑的资源管理器 windows + D 显示桌面 windows + Tab 切换窗口 windows + R 打开运行 windows + R 输入 psr.exe : windows自带的录像功能 windows + R ...

_子墨 ⋅ 2014/10/18 ⋅ 1

thinkpad 使用技巧

注意:根据不同时期不同型号的笔记本,以下定义的快捷键可能会有所不同…… FN+alt 接触键盘被锁定 FN+F2= 锁定屏幕 FN+F3=关闭屏幕 FN+F4=待机 FN+F5=无线和蓝牙开关 FN+F6=可以预览摄像...

happyliferao ⋅ 2015/11/20 ⋅ 0

从 1993 到 2015:Windows 开始菜单全史

关于微软最新的Windows 10系统,几乎每篇文章必谈的一个话题是开始菜单的回归。Windows8的不尽如人意和这个已经存在了20余年的开始菜单有着莫大的关系,从某种程度上而言,它的失败可以归咎于...

oschina ⋅ 2015/07/30 ⋅ 34

2017.11.2日更新_ Win10x64x86_企业版_专业版_WIM下载_版本号为:1709(10299.19)

微软官方原版WIM离线整合,无精简,无个人信息,无推广,系统安装后无整合残留文件,系统非常纯净。本次更新的企业版、专业版启用了内置管理员。整合只为实现自动安装自动kms 。好不好用了才...

comma2017 ⋅ 2017/10/31 ⋅ 0

《Visual C++2010开发权威指南》版权输出台湾香港新加坡---大陆C++超越并引领台湾

CSDN著名技术专家著作-《Visual C++2010开发权威指南》版权输出台湾香港新加坡 大陆购买地址 http://product.china-pub.com/196957 台湾购买地址 http://www.iread.com.tw/ProdDetails.aspx...

junwong ⋅ 2012/03/09 ⋅ 0

《Visual C++2010开发权威指南》版权输出台湾香港新加坡---大陆C++超越并引领台湾

CSDN著名技术专家著作-《Visual C++2010开发权威指南》版权输出台湾香港新加坡 大陆购买地址 http://product.china-pub.com/196957 台湾购买地址 http://www.iread.com.tw/ProdDetails.aspx...

junwong ⋅ 2012/03/09 ⋅ 0

Playmaker Input篇教程之PlayMaker菜单概述

Playmaker Input篇教程之PlayMaker菜单概述 Playmaker InputPlayMaker菜单概述 Playmaker插件被导入游戏项目以后,会自动为Unity编辑器添加一个名为PlayMaker的主菜单,如图1-14所示。熟练的...

大学霸 ⋅ 2015/05/22 ⋅ 0

怎样让ABBYY FineReader与其它应用程序兼容使用

ABBYY FineReader 12支持与 Microsoft Office 应用程序和 Windows 资源管理器进行集成。可以帮助大家在使用 Microsoft Outlook、Microsoft Word、Microsoft Excel 和 Windows 资源管理器时识...

ABBYY ⋅ 2015/10/15 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(十)JavaScript的DOM基础

JavaScript零基础入门——(十)JavaScript的DOM基础 欢迎大家回到我们的JavaScript零基础入门,上一节课,我们了解了JavaScript中的函数,这一节课,我们来了解一下JavaScript的DOM。 第一节...

JandenMa ⋅ 37分钟前 ⋅ 0

Spring mvc DispatchServlet 实现原理

在Spring中, ContextLoaderListener只是辅助类,在web 容器启动的时候查找并创建WebApplicationContext对象,通过该对象进行加载spring的配置文件。而真正的逻辑实现其实是在DispatcherSer...

轨迹_ ⋅ 49分钟前 ⋅ 0

Weex起步

本教程假设你已经在你的本地环境安装了node 其实weex起步教程在 https://github.com/lilugirl/incubator-weex 项目说明文件中都已经有了,但为了有些同学看到英文秒变文盲,所以这里我重新写...

lilugirl ⋅ 57分钟前 ⋅ 0

Jenkins实践1 之安装

1 下载 http://mirrors.jenkins.io/war/latest/jenkins.war 2 启动 java -jar jenkins.war 前提:安装jdk并配置环境变量 启动结果节选: ************************************************......

晨猫 ⋅ 今天 ⋅ 0

组合数学 1-2000 中,能被6或10整除的数的个数

1--2000 中,能被6或10整除的数的个数 利用集合的性质 能被6整除的个数 2000/6 = 333 能被10整除的个数 2000/10 = 200 能被6和10整除的个数 2000/30 = 66 能被6或10整除的个数 333+200-66 =...

阿豪boy ⋅ 今天 ⋅ 0

一篇文章学懂Shell脚本

Shell脚本,就是利用Shell的命令解释的功能,对一个纯文本的文件进行解析,然后执行这些功能,也可以说Shell脚本就是一系列命令的集合。 Shell可以直接使用在win/Unix/Linux上面,并且可以调用...

Jake_xun ⋅ 今天 ⋅ 0

大数据工程师需要精通算法吗,要达到一个什么程度呢?

机器学习是人工智能的一个重要分支,而机器学习下最重要的就是算法,本文讲述归纳了入门级的几个机器学习算法,加大数据学习群:716581014一起加入AI技术大本营。 1、监督学习算法 这个算法由...

董黎明 ⋅ 今天 ⋅ 0

Kylin 对维度表的的要求

1.要具有数据一致性,主键值必须是唯一的;Kylin 会进行检查,如果有两行的主键值相同则会报错。 2.维度表越小越好,因为 Kylin 会将维度表加载到内存中供查询;过大的表不适合作为维度表,默...

无精疯 ⋅ 今天 ⋅ 0

58到家数据库30条军规解读

军规适用场景:并发量大、数据量大的互联网业务 军规:介绍内容 解读:讲解原因,解读比军规更重要 一、基础规范 (1)必须使用InnoDB存储引擎 解读:支持事务、行级锁、并发性能更好、CPU及...

kim_o ⋅ 今天 ⋅ 0

代码注释中顺序更改 文件读写换行

`package ssh; import com.xxx.common.log.LogFactory; import com.xxx.common.log.LoggerUtil; import org.apache.commons.lang3.StringUtils; import java.io.*; public class DirErgodic ......

林伟琨 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部