home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / SYSDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-05-18  |  1.1 KB  |  49 lines
  1. unit sysdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, Pssymenu;
  8.  
  9. type
  10.   TDemoSysMenu = class(TForm)
  11.     SysMenu1: TSysMenu;
  12.     Label1: TLabel;
  13.     Edit1: TEdit;
  14.     BitBtn1: TBitBtn;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     procedure BitBtn1Click(Sender: TObject);
  18.   private
  19.     procedure WndProc(var message: TMessage);override;
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   DemoSysMenu: TDemoSysMenu;
  26.   OurItemId : integer;
  27.   OurItemcaption : string;
  28. implementation
  29.  
  30. {$R *.DFM}
  31. procedure TDemoSysMenu.WndProc(var message : TMessage);
  32. begin
  33.      if (Message.msg = WM_SYSCOMMAND) and
  34.        (OurItemId = Message.wparam) then
  35.        showmessage('The new item was selected !');
  36.      inherited WndProc(message);
  37. end;
  38. procedure TDemoSysMenu.BitBtn1Click(Sender: TObject);
  39. begin
  40.    sysmenu1.ParentHandle := Demosysmenu.handle;
  41.    sysmenu1.MenuPos := -1; {append}
  42.    sysmenu1.NewMenuItem := edit1.text;
  43.    OurItemCaption := edit1.text;
  44.    sysmenu1.InstallMenuItem;
  45.    OurItemId := sysmenu1.NewItemid;
  46. end;
  47.  
  48. end.
  49.