1 2 下一页
通常在应用程序中，如果单击标题栏的左侧图标，就会弹出一个窗体的系统菜单，在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项。在窗体中添加一个TMainMenu组件，其中TMainMenu组件中的选项将要被添加到窗体的系统菜单中。添加组件后的窗体如图1所示。
图1 添加组件后的窗体
在TMainMenu组件生成的菜单中添加一个File菜单，在这个菜单下面添加一个Exit选项。
在本程序开始运行时就会把TMainMenu组件生成的菜单添加到窗体的系统菜单中，响应代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');
with MainMenu1 do
begin
for I := 0 to Items.Count - 1 do
AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,
Items[I].Handle,PAnsiChar(Items[I].Caption));
end;
end;
程序首先通过GetSystemMenu (Handle, FALSE)来取得窗体的系统菜单，并且调用AppendMenu函数添加一个MF_SEPARATOR类型的选项，也就是菜单分隔条。然后通过一个循环，调用AppendMenu函数把TMainMenu组件生成的菜单逐个添加到窗体的系统菜单中。
现在，虽然选项已经添加到窗体的系统菜单中，但是选项还不能够响应用户的操作。为了能够正常响应用户的操作，需要拦截WM_SysCommand消息，所以要添加拦截消息的过程——procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand，它的响应代码如下：
procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
var
Item: TMenuItem;
begin
Item := MainMenu1.FindItem(Msg.CmdType, fkCommand);
if Item <> nil then
Item.Click;
inherited;
end;
上一篇： 用修改文件时间的方法来加密文件
下一篇： 怎样在DELPHI中实现文件切割/组合
1 2 下一页
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
