C++BUILDER动态建立菜单及菜单事件

C++BUILDER动态建立菜单及菜单事件

6/5/2001 8:34:13· ·佘小勇··yesky

首先新建一个工程文件(File->New Application)。 然后在Form1上面建立一个PopupMenu1,一个Button1,一个RichEdit1。 　　在头文Unit1.H的内容，其中黑体是自已加的。 #ifndef Unit1H #define Unit1H #include #include #include #include #include #include #include class TForm1 : public TForm { __published: // IDE-managed Components TButton *Button1; TPopupMenu *PopupMenu1; TRichEdit *RichEdit1; void __fastcall Button1Click(TObject *Sender); void __fastcall FormCreate(TObject *Sender); private: // User declarations POINT MousePos;//保存鼠标的位置 int PopCount;//保存菜单项个数 void __fastcall MyClick(TObject *Sender);//自已定义的单击事件 public: // User declarations __fastcall TForm1(TComponent* Owner); }; extern PACKAGE TForm1 *Form1; #endif 在Unit1.cpp中的内容，黑体自已加。 #include #pragma hdrstop #include "Unit1.h" #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } void __fastcall TForm1::Button1Click(TObject *Sender) { for(int i=PopCount-1;i>=0;i--) file://如果PopupMenu1里面有菜单项 PopupMenu1->Items->Delete(i); file://就删除，以免重复建立 TSearchRec Sr;//用来反回文件名 TMenuItem *NewItem; GetCursorPos(&MousePos);//把当前的鼠标位置保存在MousePos里 int MenuNameLength;//菜单名的长度 if(FindFirst("C://Program Files//3LTyping//data//*.txt",0,Sr)==0) { file://取得第一个符合条件的文件名； file://TXT文件的位置，可自己设定； NewItem=new TMenuItem(PopupMenu1); file://建立菜单 MenuNameLength=Sr.Name.Length(); file://文件名的长度 Sr.Name.SetLength(MenuNameLength-4); file://去除“.TXT” NewItem->Caption=Sr.Name; file://新建菜单的名字 PopupMenu1->Items->Add(NewItem); file://把新建菜单项加到PopupMenu1里 NewItem->OnClick=MyClick; file://把自己定义的MyClick函数复给新菜单的 file://OnClick单击事件 file://查找下一个符合条件的文件名，直到完 while(FindNext(Sr)==0) { NewItem=new TMenuItem(PopupMenu1); MenuNameLength=Sr.Name.Length(); Sr.Name.SetLength(MenuNameLength-4); NewItem->Caption=Sr.Name; PopupMenu1->Items->Add(NewItem); NewItem->OnClick=MyClick; } FindClose(Sr);//结事查找 } PopCount=PopupMenu1->Items->Count;//PopupMenu1下的菜单项个数保存 PopupMenu1->Popup(MousePos.x,MousePos.y);//在当前位置弹出PoupMenu1菜单 } { file://下面的代码主要是把选定的文件显示在RichEdit1上 Form1->Caption=((TMenuItem*)Sender)->Caption; RichEdit1->PlainText=true;//设为true，表示纯文本文件 RichEdit1->Lines->LoadFromFile( "C://Program Files//3LTyping//data//"+ ((TMenuItem*)Sender)->Caption+".txt"); } void __fastcall TForm1::FormCreate(TObject *Sender) { PopCount=0;//初始化 } 　　上面的程序编译之后，单击Button1，就会弹出PoupMenu1，通过单击PoupMenu1下面的菜单项就会在RichEdit1上面显示文件的内容。 　　这个程序很简单，主要是说明如何动态建立菜单，及如何响应新建菜单的事件，也可应用到其它上面，如TMenuMain等。。。。。 　　本程序在C++BUILDER4.0下通过。