C++ BUILDER动态成立菜单及菜单事件[VC/C++编程]

首先新建一个工程文件(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下通过.