c语言动态菜单代码,c语言入门之C++BUILDER动态建立菜单及菜单事件

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