home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
tenpack.lzh
/
SYSDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-05-18
|
1KB
|
49 lines
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.