博客园这两天又见到了语言的争论哈！这次是C#。我一般都不参与这种争论的，就算我蛋疼的不得了，我也不参与。因为这实在没啥意义可言，就像很多很多时候，在语言之争上，一次又一次的将Delphi推上风口浪尖，这个说Delphi不行，那个说Delphi气数已近。在我的博客的回复中也有不少这样的言论的。然而实际上呢，到目前为止Delphi的使用者还是相当的多，虽然不如以前那么如日中天，但是至少不会死掉。而我们作为一个程序员，停留在语言的一味的争论上，实在不是什么明智之举。不若，花点时间多了解一下语言或工具本身的特性。比如，很多人都只把Delphi看做为一个专门的数据库开发工具（很多Delphi程序员自己也都有这样的误解）。面对这样的言论，我实在不知道说他什么，难道我要说他们无知么？肯定不会，因为我也不是什么大智慧的高人。首先我们要摆正我们自己的思维方向，Delphi和VS这两个都是Windows下的开发工具，既然是Windows的开发工具，那么他们调用的都是 Windows的一套开发接口，也就是说，实际说来，都是用的微软开放的接口。既然如此，那么我们又何必争论这些东西呢，只为图一时痛快，将一方贬低，同时抬高自己？都要遵守Windows的开发准则，使用微软的同一套开发库（这个将QT,Wxdiget等跨平台库排除）。所以，我们将精力放在对于 Windows的编程规则，以及他的开放接口的掌握上作为首要目标，使用Delphi开发的人，要会VC（这个会不一定要会写，至少能看懂他的代码，能将他顺利转换到Delphi下），而使用VC的人，要也可以利用Delphi的资源。这样才是最终目的，而不是去争论谁好谁坏！我的目的只有一个，就是能够找到的资源，都要能够为我所用，而根本不必在乎是什么语言的代码，因为虽然他们的语言格式不同，但是他们的目的相同，要实现的功能相同，这就够了。所以，我才会将Windows的纯API编程方式全部用Delphi来讲解和实现一遍。让自己更加的熟悉Windows的编程规则，同时也能让更多人了解到 Windows程序的运作原理。好了，蛋疼的写了这些个废话，下面进入正题，在Delphi中建立菜单资源和使用消息框。

    消息框，是Windows给用户提示的一种非常有用的方法。消息框的主要作用就是通知用户发生了某件事情，让用户响应。这个在前面已经用过了，那便是 MessageBox这个函数

函数原型为：

int MessageBox(Hwnd hwnd,LPCSTR lpszText,LPCSTR lpszCaption,UINT MBType);

function MessageBox(Handle: THandle;lpszText: pchar;Caption: Pchar;MBType: UINT): integer;

第一个参数指定为父窗口句柄，lpszText指定消息框的消息字符串指针。lpSzCaption指定为消息窗口标题。MBType指定为消息框的显示类型，包括显示什么类型的按钮和图标。

MBType的取值为：

MB_ABORTRETRYIGNORE                 显示"终止,重试,护绿"按钮

MB_ICONEXCLAMATION                    显示一个感叹号图标

MB_ICONERROR                              显示一个错误信息图标

MB_ICONINFORMATION                    显示一个信息图标

MB_ICONQUESTION                         显示一个问号

MB_ICONSTOP                                显示一个停止符号

MB_OK                                          确定按钮

MB_OKCANCEL                              确定，取消按钮

MB_RETRYCANCEL                        重试，取消按钮

MB_YESNO                                   是，否按钮

MB_YESNOCANCEL                       是，否，取消按钮

MBType的值可以是上面的值的组合，组合采用OR或操作来表示，比如MB_OK or MB_ICONINFORMATION

函数返回用户对消息框的响应。可返回的值为：

  Abort            IDABORT

  Retry             IDRETRY

  Ignore           IDIGNORE

  Cancel           IDCANCEL

  No                IDNO

  Yes               IDYes

  Ok                IDOK

这个函数的用法非常简单，我也就不多说了。

  现在要详细讲解的是通过资源文件来建立菜单。

  Windows支持三种通用类型的菜单：

  1、主菜单

  2、弹出式子菜单

  3、浮动的独立弹出式菜单

主菜单式应用程序的最高层菜单。

  弹出式子菜单是从主菜单下弹出的。

  浮动式弹出菜单是自由菜单，也就是我们常用的TPopupMenu.

  菜单在Windows应用程序中占据着非常重要的地位，因此Windows内部提供了对菜单的大量支持。在Delphi中，我们使用菜单相当简单，仅仅拖一个控件，然后设置一下，就完成了。实际上菜单也是可以在RC文件中编写，然后通过Brcc32编译成资源文件给Delphi使用的。如果对原生的Win32 SDK编程非常了解的话，对这个应该比较清楚，菜单实际上也是资源的形式存在程序中的。现在我就说一下如何向窗口中增加一个菜单：

  1、在资源文件中定义菜单的形式。

  2、在程序创建它的主窗口时加载菜单。

  3、处理菜单的选取。

这就是一个SDK程序中使用菜单的几个步骤。

  资源文件，我想大家都不陌生，Delphi中使用R编译指令来引入资源文件形式为：

{$R XXX.res}

  这个应该都不会陌生了，至于一般的资源文件如何使用，我也就不多说了，仅仅说一下菜单这个资源，如何在Delphi的资源文件中体现出来。这个主要就是看菜单资源的定义语句。定义好了之后，编译一下就可以生成res资源文件了。

  所有菜单资源的定义方式都是：

  MenuName  MENU [Options]

  {

     menu items

  }

  其中，MenuName是菜单名（它可以是指定菜单的整形值，也可以是菜单名，在这里，我全部使用菜单名）。关键字Menu告诉资源编译器正在创建一个菜单。最后跟Option选项，具体内容为：

DISCARDABLE                   当不在需要菜单时，可从内存中将其删除

CHARACTERISTICS info      具体的应用程序信息，其在info中被指定为long

LANGUAGE lang,sub-lang    资源所使用的语言由Lang和sub_lang指定，被用于国际性菜单

VERSION ver                     在ver中指定应用程序定义的版本号

大多数应用程序不需要使用任何选项，而只用简单的使用缺省设置。

用户可使用两种语句来定义菜单，MENUITEM和POPUP。MENUITEM指定最终的选取结果，POPUP指定弹出式子菜单，他内部还可以包含其他的MENUITEM或者POPUP语句。其表现形式为：

MENUITEM  "菜单名", MenuID  [,options]

POPUP  "菜单名" [,Options]

MenuID是与菜单项相联系的唯一整型值，该值在用来在窗口过程中标记用户到底会触发那个菜单的过程。这些整型值通常在头文件中定义为宏，该头文件同时包含在用户的应用程序代码和资源文件rc中。比如

#define  IDM_NEW  102

#define  IDM_OPEN  103

这两个，我们可以写上这两个，然后定义为一个头文件MyMenus.h，之后在定义菜单资源的时候，直接引入

#include "MyMenus.h"

MyMenu MENU

{

   MENUITEM  "新建",  IDM_NEW

   MENUITEM  "打开",  IDM_OPEN

}

不过，我们在dElphi中，不是使用头文件的，所以，我们可以直接将MyMenus.h中的宏定义内容复制到.rc中

#define  IDM_NEW  102

#define  IDM_OPEN  103

MyMenu MENU

{

   MENUITEM  "新建",  IDM_NEW

   MENUITEM  "打开",  IDM_OPEN

}

这个与#include那个效果一样，之后，我们将IDM_NEW 这样的宏定义在Delphi中声明为

const

  IDM_NEW = 102;

  IDM_OPEN = 103;

这样这个菜单的定义就完成了，之后，用Brcc32编译成一个比如MenuTest.res的资源文件

在工程中引入

{$R MenuTest.res}

这样就可以使用这个资源菜单了。

然后我们在看看MenuItem的Options选项信息

CHECKED               复选标记，最顶层菜单不能使用

CRAYED                 灰色，既Enabled := False;

Help                      与帮助的选取有关系，只适用于MenuItem

MenuBARBREAK     对于菜单栏，将引起条目位于一条新线上，对于弹出式菜单，将引起条目位于不同的栏中。此时

                            条目通过一条竖栏与菜单分离

MENUBREAK          与MenuBARBREAK差不多，只是不使用分离栏

 SEPARATOR          创建菜单与菜单之间的分割线，只用于MENUITEM.

那么现在就来试验创建一个Delphi2007的部分菜单

#define IDM_Package 102
#define IDM_Unit 103
#define IDM_Form 104
#define IDM_VclApp 105
#define IDM_Other 106
#define IDM_Custom 107
#define IDM_OPEN  108
#define IDM_OPEN1 109
#define IDM_Save  110
#define IDM_SaveAs 111
#define IDM_Exit 112
#define IDM_Copy  113
#define IDM_Paste 114
#define IDM_Cut 115
TestMenu_D2007  MENU
{
  POPUP  "File"
  {
    POPUP  "New"
      {
          MENUITEM  "Package-Delphi for Win32",IDM_Package
          MENUITEM  "Unit-Delphi for Win32",IDM_Unit
          MENUITEM  "Form-Delphi for Win32",IDM_Form
          MENUITEM  "Vcl Application-Delphi for Win32",IDM_VclApp
          MENUITEM  SEPARATOR
                  MENUITEM  "Other",IDM_Other 
          MENUITEM  SEPARATOR
          MENUITEM  "Customize",IDM_Custom
      }
    MENUITEM "Open",IDM_OPEN
    MENUITEM "Open Project",IDM_OPEN1
    MENUITEM  SEPARATOR
    MENUITEM "Save",IDM_Save
    MENUITEM "Save as",IDM_SaveAs
    MENUITEM  SEPARATOR
    MENUITEM "Exit",IDM_Exit
  } 
  POPUP  "Edit"
  {
     MENUITEM "Copy",IDM_Copy
     MENUITEM "Paste",IDM_Paste
     MENUITEM "Cut",IDM_Cut
  }
}

保存为D2007Menu.rc，然后使用Delphi的brcc32编译一下成为D2007Menu.res，之后，看我在程序中使用这个菜单资源，然后看看效果

编译之后就生成了那个菜单，但是，这个菜单，目前没有添加任何功能，要使菜单响应应用程序的点击，我们需要在窗口过程中处理WM_COMMAND消息，用户每进行一次菜单选择，都会向程序窗口发送一条WM_COMMAND消息，接收到这个消息之后，LOWORD(wParam)中的值就是我们在定义菜单资源时定义的菜单ID比如IDM_OPen这样的，所以我们在窗口过成忠添加一个如下的处理：

WM_COMMAND:
begin
case LOWORD(wParam) of
      IDM_Package: MessageBox(hwnd,'点击了Package选项','消息',64);
      IDM_Unit: MessageBox(hwnd,'创建单元么？','消息',64);
      IDM_Form: MessageBox(hwnd,'创建窗口','消息',64);
      IDM_Exit: DestroyWindow(Hwnd)
end;
end

const
  IDM_Package = 102;
  IDM_Unit =  103;
  IDM_Form =  104;
  IDM_VclApp =  105 ;
  IDM_Other = 106   ;
  IDM_Custom = 107  ;
  IDM_OPEN  = 108    ;
  IDM_OPEN1 = 109   ;
  IDM_Save  = 110  ;
  IDM_SaveAs = 111;
  IDM_Exit = 112 ;
  IDM_Copy  = 113;
  IDM_Paste = 114;
  IDM_Cut = 115;

如果不这样做的话，那么在那个WM_COMMAND的处理过程中就是用数值吧，而不用这些宏名代替了。

到这里一个简单的菜单程序就完成了。以后再讲解一下其他的菜单资源，各位也可以在网上查找一下相关的资料先参考一下！