unit1.pas

TreeMenu Component ================== The TreeMenu is a descendant of TTreeView. It is a "steal

{*******************************************************}
{                                                       }
{              TTreeMenu Stealth Component              }
{                                                       }
{              Pal Sitkei, [e-mail]             }
{                                                       }
{*******************************************************}

unit Unit1;

interface

uses
  Classes, ComCtrls, Controls, Dialogs, Forms, Menus, ImgList;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Save1: TMenuItem;
    N3: TMenuItem;
    Close1: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Edit1: TMenuItem;
    Cut1: TMenuItem;
    N6: TMenuItem;
    Repeatcommand1: TMenuItem;
    Undo1: TMenuItem;
    Window1: TMenuItem;
    ile1: TMenuItem;
    NewWindow1: TMenuItem;
    Help1: TMenuItem;
    SearchforHelpOn1: TMenuItem;
    Contents1: TMenuItem;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    procedure New1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses TreeMenu;

procedure TForm1.New1Click(Sender: TObject);
begin
  ShowMessage('New is clicked');
//  if Assigned(TreeView1) then TreeView1.Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  with tTreeMenu.CreateBy(TreeView1) do
    Menu:= MainMenu1;
end;

end.