unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AddMenuClick(TObject *Sender)
{
        TMenuItem *NewItem;
        NewItem=new TMenuItem(MainMenu1);
        NewItem->Caption="新菜单(&"+IntToStr(MainMenu1->Items->Count)+")";
        MainMenu1->Items->Insert(MainMenu1->Items->Count,NewItem);
        DelMenu->Enabled=true;
        AddSubMenu->Enabled=true;
        DelSubMenu->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AddSubMenuClick(TObject *Sender)
{
        TMenuItem *ToItem,*NewItem;
        if(MainMenu1->Items->Count>2)
        {
                ToItem=MainMenu1->Items->Items[MainMenu1->Items->Count-1];
                NewItem=new TMenuItem(ToItem);
                NewItem->Caption="新子菜单(&"+IntToStr(ToItem->Count)+")";
                ToItem->Insert(ToItem->Count,NewItem);
                DelSubMenu->Enabled=true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DelMenuClick(TObject *Sender)
{
        TMenuItem *ToItem;
        if (MainMenu1->Items->Count>2)
                MainMenu1->Items->Delete(MainMenu1->Items->Count-1);
        if (MainMenu1->Items->Count==2)
        {
                AddSubMenu->Enabled=false;
                DelMenu->Enabled=false;
                DelSubMenu->Enabled=false;
        }
        else
        {
                ToItem=MainMenu1->Items->Items[MainMenu1->Items->Count-1];
                if(ToItem->Count==0)
                        DelSubMenu->Enabled=false;
                else
                        DelSubMenu->Enabled=true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DelSubMenuClick(TObject *Sender)
{
        TMenuItem *ToItem;
        if (MainMenu1->Items->Count>2)
        {
                ToItem=MainMenu1->Items->Items[MainMenu1->Items->Count-1];
                if(ToItem->Count>0)
                        ToItem->Delete(ToItem->Count-1);
                if(ToItem->Count==0)
                        DelSubMenu->Enabled=false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ExitClick(TObject *Sender)
{
        Form1->Close();
}
//---------------------------------------------------------------------------