sysmenuform.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit SysMenuForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ShellAPI, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    SysTray: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMSysCommand(var Msg:TMessage); message WM_SysCommand;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 const idAtFront = $00A0;
 var i:integer;
begin
 AppendMenu(GetSystemMenu(Handle,False),MF_MENUBREAK,0,'');
 AppendMenu(GetSystemMenu(Handle,False),MF_STRING,idAtFront,'始终在前(&F)');
 with PopupMenu1 do
  for i:=0 to Items.Count-1 do
   AppendMenu(GetSystemMenu(self.Handle,False),MF_POPUP,Items[i].Handle,pChar(Items[i].Caption));
end;

procedure TForm1.WMSysCommand(var Msg:TMessage);
 var item:TMenuItem;
begin
 Inherited;
 item:=PopupMenu1.FindItem(msg.WParam,fkCommand);
 if not(item = nil) then
  Item.Click;
end;

end.