用Delphi为窗体的系统菜单中添加选项

页面导航:首页 > 软件编程 > Delphi > 用Delphi为窗体的系统菜单中添加选项

用Delphi为窗体的系统菜单中添加选项

来源: 作者: 时间:2016-02-05 11:47 【

通常在应用程序中,如果单击标题栏的左侧图标,就会弹出一个窗体的系统菜单,在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项
通常在应用程序中,如果单击标题栏的左侧图标,就会弹出一个窗体的系统菜单,在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项。

在窗体中添加一个TMainMenu组件,其中TMainMenu组件中的选项将要被添加到窗体的系统菜单中。添加组件后的窗体如图1所示。

\<喎"http://www.2cto.com/kf/ware/vc/" target="_blank" class="keylink">vc3Bhbj48YnIvPg0KICAgICAgICAgICAgzbwxIMztvNPX6bz+uvO1xLSwzOU8L2Rpdj4NCiAgICAgICAgICAgIDwvdGQ+DQogICAgICAgIDwvdHI+DQogICAgPC90Ym9keT4NCjwvdGFibGU+DQo8YnIvPg0K1NpUTWFpbk1lbnXX6bz+yfqzybXEssu1pdbQzO2809K7uPZGaWxlssu1paOs1NrV4rj2ssu1pc/Cw+bM7bzT0ru49kV4aXTRoc/uoaM8YnIvPg0KPGJyLz4NCtTasb6zzNDyv6rKvNTL0NDKsb7Nu+Gw0VRNYWluTWVuddfpvP7J+rPJtcSyy7WlzO2807W9tLDM5bXEz7XNs7LLtaXW0KOsz+zTprT6wuvI58/Co7o8YnIvPg0KPGJyLz4NCjx0YWJsZSBib3JkZXJjb2xvcj0="#cccccc" width="90%" align="center" bgcolor="#e3e3e3" border="1">
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;

这样,新添加的选项就可以正常工作了。

单击窗体系统菜单File中的Exit选项,就会结束程序的运行。

程序代码如下:

unit Unit1;

interface

uses

SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls;
type
 TForm1 = class(TForm)
 MainMenu1: TMainMenu;
 File1: TMenuItem;
 Exit1: TMenuItem;
 procedure Exit1Click(Sender: TObject);
 procedure FormCreate(Sender: TObject);
private
 { Private declarations }
public
 procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand;
end;


var
 Form1: TForm1;
 implementation
 {$R *.DFM}

procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
var
 Item: TMenuItem;
begin
 Item := MainMenu1.FindItem (Msg.CmdType, fkCommand);
 if Item <> nil then
  Item.Click;
  inherited;
 end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
 Close;
end;

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;
end.

保存文件,然后按F9键运行程序,程序运行结果如图2所示。


图2 程序运行结果

本实例演示的是如何向窗体的系统菜单中添加选项。取得系统选项的句柄后,不但可以添加选项,还可以修改选项,这样读者就可以在自己编写的程序中更加充分地控制窗体的系统菜单。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <