文档章节

Windows 编程[16] - 添加与删除菜单项:GetMenu、AppendMenu、DeleteMenu、DrawMenuBar

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 410
阅读 6
收藏 0
点赞 0
评论 0
本例效果图:



本例在窗体建立时, 动态添加了三个菜单; 并赋予它们自我删除的功能.

本例使用的资源文件(TestRes.rc):
MyMenu1 MENUEX
BEGIN
  POPUP "&File"
  BEGIN
    MENUITEM "E&xit"  ,101
  END
END

 
 
 
 
 

 

 

  
本例代码文件:
program Project1;

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

uses
  Windows, Messages;

const
  IDM_1 = 1; {定义三个标识菜单项的常量}
  IDM_2 = 2;
  IDM_3 = 3;

{收到 WM_CREATE 消息时添加三个菜单项}
procedure OnCreate(h: HWND);
var
  hm: HMENU;
begin
  hm := GetMenu(h);                            {获取窗口主菜单句柄}
  AppendMenu(hm, MFT_STRING, IDM_1, 'Menu&1'); {添加菜单项}
  AppendMenu(hm, MFT_STRING, IDM_2, 'Menu&2');
  AppendMenu(hm, MFT_STRING, IDM_3, 'Menu&3');
end;

{收到 WM_COMMAND 消息时需要做的工作}
procedure OnCommand(h: HWND; wParam: Integer);
var
  w: Word;
begin
  w := LoWord(wParam);
  case w of
    101: DestroyWindow(h);          {关闭窗口; 101 是在资源文件中给 Exit 菜单指定的标识}
    IDM_1, IDM_2, IDM_3: begin      {点击新建的三个菜单时...}
      DeleteMenu(GetMenu(h), w, 0); {删除该菜单}
      DrawMenuBar(h);               {重绘菜单}
    end;
  end;
end;

function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
  Result := 0;
  case msg of
    WM_CREATE  : OnCreate(wnd);          {收到 WM_CREATE 消息后调用 OnCreate 过程}
    WM_COMMAND : OnCommand(wnd, wParam); {收到 WM_COMMAND 消息后调用 OnCommand 过程}
    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';
  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/22/1166313.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
VC中的一些常用方法(20条

//一、打开CD-ROM mciSendString("Set cdAudio door open wait",NULL,0,NULL); //二、关闭CDROM mciSendString("Set cdAudio door closed wait",NULL,0,NULL); //三、关闭计算机 OSVERSIONI......

长平狐 ⋅ 2012/09/03 ⋅ 0

vc++常用函数方法

一、打开CD-ROM mciSendString("Set cdAudio door open wait",NULL,0,NULL); 二、关闭CD_ROM mciSendString("Set cdAudio door closed wait",NULL,0,NULL); 三、关闭计算机 OSVERSIONINFO Os......

junwong ⋅ 2012/03/09 ⋅ 0

vc++修改软件程序菜单实例

修改软件一般使用exescope软件可以对软件界面,标题等的修改,这里介绍使用vc++修改cmenu菜单 。实例1. 使用CWnd::GetMenu( )访问主菜单,GetMenu( )返回指向CMenu对象的指针,它有一些成员函...

crossmix ⋅ 2015/10/27 ⋅ 0

MFC学习之路

参考书籍: 《VC++ 深入详解》--孙鑫 《MFC深入浅出》 --侯捷 《C++标准程序库》--侯捷 《visual c++典型模块与项目实战大全》 ---电子工业出版社 《visual c++ 串口通信程序》 一、接触MFC...

流云的博客 ⋅ 2015/05/04 ⋅ 3

GetSystemMenu(FALSE)

参数为False时返回当前窗口系统菜单(窗口标题栏右键弹出的移动、大小、最大化等)的句柄。 系统菜单是指我们点击窗体左上角的小图标时所弹出的菜单,其中好象有“恢复”.“移动”.“最大化”....

云栖希望。 ⋅ 2017/12/04 ⋅ 0

PHP反射机制实现插件的可插拔设计

说PHP和ASP等同的朋友们可以就此打住了,PHP支持反射,而且还是非常的强大。好了,我们开始今天的话题。功能描述:页面拥有一个主导航菜单,里头有默认连接若干。 插件统一存放在一个目录,插...

蜗牛奔跑 ⋅ 2016/03/11 ⋅ 2

VC托盘程序的简单实现

以下是网上看到的一个实现VC托盘的程序,好像只适用于对话框程序。经本人简单整理。 一、托盘简介 所谓的“托盘”,在Windows系统界面中,指的就是下面任务条右侧,有系统时间等等的标志的那...

wwl33695 ⋅ 2015/06/09 ⋅ 0

VC托盘程序的简单实现

以下是网上看到的一个实现VC托盘的程序,好像只适用于对话框程序。经本人简单整理。 一、托盘简介 所谓的“托盘”,在Windows系统界面中,指的就是下面任务条右侧,有系统时间等等的标志的那...

wwl33695 ⋅ 2015/06/09 ⋅ 0

Android 用户界面---菜单(Menus 三)

弹出菜单是停靠在一个View上的一个模式菜单。如果View对象下方有空间,那么弹出菜单将显示在停靠对象的下方,否则会显示在上方。这是非常有用的: 1. 给指定内容的操作提供一个溢出式菜单(如...

长平狐 ⋅ 2012/10/16 ⋅ 0

Apple Watch开发快速入门教程

Apple Watch开发快速入门教程 试读下载地址:http://pan.baidu.com/s/1eQ8JdR0 介绍:苹果为Watch提供全新的开发框架WatchKit。本教程是国内第一本Apple Watch开发教程,全面讲解WatchKit的各...

大学霸 ⋅ 2015/03/16 ⋅ 1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

windows profesional 2017 build problem

.net framework .... https://stackoverflow.com/questions/43330915/could-not-load-file-or-assembly-microsoft-build-frameworkvs-2017...

机油战士 ⋅ 27分钟前 ⋅ 0

python3中报错的解决方法(长期更新)

1、ImportError: No module named ‘DjangoUeditor’ 出错原因:安装DjangoUeditor库适用于python2,需要下载适用python3的 下载地址:https://github.com/twz915/DjangoUeditor3 2、python3......

xiaoge2016 ⋅ 31分钟前 ⋅ 0

数据结构与算法之双向链表

一、双向链表 1.双向链表的结点结构 typedef struct DualNode{ ElemType data; struct DualNode *prior; // 前驱结点 struct DualNode *next; // 后继结点}DualNode, *DuL...

aibinxiao ⋅ 51分钟前 ⋅ 0

五大最核心的大数据技术

大数据技术有5个核心部分,数据采集、数据存储、数据清洗、数据挖掘、数据可视化。关于这5个部分,有哪些核心技术?这些技术有哪些潜在价值?看完今天的文章就知道了。 大数据学习群:7165810...

董黎明 ⋅ 52分钟前 ⋅ 0

PhpStorm 头部注释、类注释和函数注释的设置

首先,PhpStorm中文件、类、函数等注释的设置在:setting-》Editor-》FIle and Code Template-》Includes下设置即可,其中方法的默认是这样的: /**${PARAM_DOC}#if (${TYPE_HINT} != "v...

nsns ⋅ 52分钟前 ⋅ 0

spring.net AOP

http://www.springframework.net/doc-latest/reference/html/aop-quickstart.html https://www.cnblogs.com/wujy/archive/2013/04/06/3003120.html...

whoisliang ⋅ 57分钟前 ⋅ 0

【HAVENT原创】创建 Dockerfile 生成新的镜像,并发布到 DockerHub

注意:Win7 与 Win10 的版本存在差异,Win7 版本使用 Docker Quickstart Terminal 进入控制台,Win10下面直接用管理员权限打开控制台或者 PowerShell 即可;另外 Win7 下面只能访问 C盘,/ap...

HAVENT ⋅ 58分钟前 ⋅ 0

pom.xml出现web.xml is missing ...解决方案

提示信息应该能看懂。也就是缺少了web.xml文件,<failOnMissingWebXml>被设置成true了。 搜索了一下,Stack Overflow上的答案解决了问题,分享一下。 目前被顶次数最多的回答原文如下: This...

源哥L ⋅ 58分钟前 ⋅ 0

js时间戳与日期格式之间相互转换

1. 将时间戳转换成日期格式 1 2 3 4 5 6 7 8 9 10 11 12 13 14 // 简单的一句代码 var date = new Date(时间戳); //获取一个时间对象 /** 1. 下面是获取时间日期的方法,需要什么样的格式自己...

Jack088 ⋅ 今天 ⋅ 0

web添加log4j

添加xml配置log4j.properties # Global logging configuration---root日志设置#log4j.rootLogger=info,dailyRollingFile,stdoutlog4j.rootLogger=debug,stdout,dailyRollingFile---......

黄柳淞 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部