Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#30: How can I add the item into system menu?

Sometimes I must insert a new items into system menu of some form. I think that I such not one...

type TyourForm = class(TForm)
  private
    { Private declarations }
    procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
  end;

const
  ID_ABOUT  = Word(-1);

implementation

procedure TyourForm.wmSysCommand;
begin
  if Message.wParam = ID_ABOUT then
  begin
     <some actions>
  end;

  inherited;
end;

procedure TyourForm.FormCreate(Sender: TObject);
var sysMenu: THandle;
begin
  sysMenu := GetSystemMenu(Handle, False);

  AppendMenu(sysMenu, MF_SEPARATOR, Word(-1), '');
  AppendMenu(sysMenu, MF_BYPOSITION, ID_ABOUT, 'About...');
end;

Published: October 7, 1999

See also

	Clarion to Text converter
	Paradox to Text converter
	DBExport tools
	SMImport suite
	Metafile Convert
	ABA Picture Convert
	dBase Viewer
	DBISAM Viewer
	Paradox ActiveX
	Excel Web-stream

Contact to webmaster