如何在C Builder环境中实现在菜单中显示历史…

本文介绍了如何在Windows环境下实现菜单中显示历史文档列表，同时概要介绍了TRegistry类的使用方法。

　　现在，在许多Windows应用程式都具备这样一个功能：能够在文档菜单下面显示列出最近访问过的文档，这使用户很容易再次访问曾访问过的文档。在过去几年中，这项技术以成为拥有文档菜单项的应用程式的一起特色：如Wps系列和Office系列。在以前的DOS环境中，程式员一般通过创建一个文档用来记录文档列表；那么在Windows环境中，更有其他的方法吗？最近笔者利用C Builder5.0 C/S版提供的TRegedit类成功在注册表中实现了上述功能，现介绍如下:

1、在C Builder中新建一个工程文档project1，并在Form1上添加如下控件：

控件名称　　　　　　　　 属性　　　　　　　　 值

TOpenDialog　　　　　　 Name　　　　　　　　 OpenDialog1

TMainMenu　　　　　　　　 Name　　　　　　　　 MainMneu1

同时在 MainMenu1控件中增加一个菜单项，其属性为

Name　　　　　　　　　　　　 Caption

Items1　　　　　　　　　　 打开文档

2、在unit1.h中

private:

TRegistry *Registry;

String Items[3];//建立显示历史文档的数组//

int ItemsCount;

void _fastcall TForm1::Display();//显示历史文档记录//



3、在Items的Click事件中输入如下内容：

void __fastcall TForm1::Items1Click(TObject *Sender)

{



String TempFile,Files;

OpenDialog1->Filter="All Files(*.*)|*.*";

if(OpenDialog1->Execute())

{

Files=OpenDialog1->FileName;//取得文档名//

　　for(int i=0;i<3;i )

　　 TempFile=Items[0];

　　 if(ItemsCount<3)

　　 ItemsCount ;

　　 for(int i=ItemsCount-1;i>0;i--)

　　 Items[i]=Items[i-1];//对打开的历史文档进排序//

　　 Items[0]=Files;//使最近打开的文档在最前面//

　　 }

　　Display();

}

4、在unit.cpp中建立Display函数

void _fastcall TForm1::Display()

{

TMenuItem *NewItem;

while(MainMenu1->Items->Items[MainMenu1->Items->Count-1]->Count>2)

{

MainMenu1->Items->Items[MainMenu1->Items->Count-1]->

Delete(MainMenu1->Items->Items[MainMenu1->Items->Count-1]->Count-1);

}//除去原有的历史文档列表//

　　for(int i=0;i
　　{

　　 NewItem=new TMenuItem(MainMenu1);

　　 NewItem->Caption=Items[i];

　　 MainMenu1->Items->Items[MainMenu1->Items->Count-1]->Insert

( MainMenu1->Items->Items[MainMenu1->Items->Count-1]->Count,NewItem);

　　 }//建立新的历史文档列表//

}

5、在Form1的Show事件中输入如下内容：

void __fastcall TForm1::FormShow(TObject *Sender)

{

Registry =new TRegistry;

ItemsCount=0;

　　Registry->RootKey=HKEY_LOCAL_MACHINE;

　　Registry->OpenKey("SOFTWARE\\MYCOMPANY\\Remember",TRUE);

//在注册表中打开主键，假如该主键不存在则新建该主键//

Items[0]=Registry->ReadString("Item1");//读items[i]字符串的值//

ItemsCount ;

Items[1]=Registry->ReadString("Item2");

ItemsCount ;

Items[2]=Registry->ReadString("Item3");

ItemsCount ;



}

6、在Form1的Show事件中输入如下内容：

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

　　 if(ItemsCount<3)

　　 for(int i=ItemsCount 1;i<=3;i )

　　 Items[i]="";

　　 Registry->WriteString("Item1",Items[0]);

　　 Registry->WriteString("Item2",Items[1]);

　　 Registry->WriteString("Item3",Items[2]);

　　 //向注册表写入items[i]字符串的值//



}

　　以上程式在PWin98、C Builder5.0环境中通过。

　　其实许多程式的其他功能，如：自动保存程式界面大小、自动记忆用户口令、也是利用

TRegedit在注册表中实现的。有兴趣的读者能够试一试。