一个关于ToolBar2000的问题

[cdws222]

我在程序中使用了ToolBar2000,现在需要在退出程序时记住ToolBar的状态，比如ToolBar现在停靠在哪边，是不是变成了浮动的窗体等等，而在下次程序启动后还要还原出现在的状态。

我该怎么办？
请给段代码,谢谢!

[耙子]

这个还不简单？
就是把当前的状态保存下来就行了。
一个是保存在注册表，一个是保存成文文件，比如ini。

[气血龙渊]

保存在注册表里很方便的

[cdws222]

各位大侠，我知道保存下来就行了，可我不知道具体的方法呀，还请各位写出一段代码！

[毕加索的画]

记录TTBToolbar的Left、Top、DockPos、DockRow属性，在程序重新启动时读出恢复.

[cdws222]

如果TTBToolBar这时是一个窗体呢?

[kingcaiyao]

你把ToolBar的位置等信息保存到ini文件中，下次调用时再从文件中取出就可以了。给你写个代码片段：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TIniFile *pFile=new TIniFile(ExtractFilePath(Application->ExeName)+"cdws222.ini");
pIni->WriteInteger("ToolBar2000","Left",ToolBar->Left);
pIni->WriteInteger("ToolBar2000","Top",ToolBar->Top);
pIni->WriteInteger("ToolBar2000","DockPos",ToolBar->DockPos);
pIni->WriteInteger("ToolBar2000","DockRow",ToolBar->DockRow);
.....
delete pIni;
}

[kingcaiyao]

读出时这样：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TIniFile *pFile=new TIniFile(ExtractFilePath(Application->ExeName)+"cdws222.ini");
ToolBar->Left=pIni->ReadInteger("ToolBar2000","Left",0);
ToolBar->Top=pIni->ReadInteger("ToolBar2000","Top",0);
ToolBar->DockPos=pIni->ReadInteger("ToolBar2000","DockPos",0);
ToolBar->DockRow=pIni->ReadInteger("ToolBar2000","DockRow",0);
.....
delete pIni;
}

[cdws222]

好吧,这个问题先不问了,但分还是要给的