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

	Paradox Password Recovery
	Clarion Viewer
	Database Information Manager
	SMExport suite
	ABA Database Convert
	ABA Picture Convert
	Mail parser (ActiveX)
	DBExport tools
	Clarion to Text converter
	dBase Viewer

Contact to webmaster