delphi android 如何关闭系统 delphi sdk

转载

网络小墨舞风 2023-12-11 09:59:40

文章标签 windows microsoft Delphi #define Windows 文章分类 Android 移动开发

博客园这两天又见到了语言的争论哈！这次是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这样的，所以我们在窗口过成忠添加一个如下的处理：

也可以将这个作为一个inc文件，然后再Delphi中以{$I }的方式引入。

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

本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。