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 to Text converter
	DBExport tools
	Mail parser (ActiveX)
	SMDBGrid
	Protected Storage Viewer
	ABA Database Convert
	SMMsg suite
	DBLoad
	ABA Spreadsheet Convert
	Viewer for MS Outlook Messages

Contact to webmaster