home *** CD-ROM | disk | FTP | other *** search
- unit sysdemo;
-
- interface
-
- uses
- SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
- Forms, Dialogs, StdCtrls, Buttons, Pssymenu;
-
- type
- TDemoSysMenu = class(TForm)
- SysMenu1: TSysMenu;
- Label1: TLabel;
- Edit1: TEdit;
- BitBtn1: TBitBtn;
- Label2: TLabel;
- Label3: TLabel;
- procedure BitBtn1Click(Sender: TObject);
- private
- procedure WndProc(var message: TMessage);override;
- public
- { Public declarations }
- end;
-
- var
- DemoSysMenu: TDemoSysMenu;
- OurItemId : integer;
- OurItemcaption : string;
- implementation
-
- {$R *.DFM}
- procedure TDemoSysMenu.WndProc(var message : TMessage);
- begin
- if (Message.msg = WM_SYSCOMMAND) and
- (OurItemId = Message.wparam) then
- showmessage('The new item was selected !');
- inherited WndProc(message);
- end;
- procedure TDemoSysMenu.BitBtn1Click(Sender: TObject);
- begin
- sysmenu1.ParentHandle := Demosysmenu.handle;
- sysmenu1.MenuPos := -1; {append}
- sysmenu1.NewMenuItem := edit1.text;
- OurItemCaption := edit1.text;
- sysmenu1.InstallMenuItem;
- OurItemId := sysmenu1.NewItemid;
- end;
-
- end.
-