如何遍历所有组件的caption,包括 TListView,TabSheet等所有VCL控件

[lxj_com2006]

如何遍历所有组件的caption属性,包括 TListView,TabSheet等所有VCL控件

如下:
Memo1->Clear();
for(int i=0; i<Form1->ComponentCount; i++)
{
if(GetPropInfo(Components[i], "Caption"))
Memo1->Lines->Add(Components[i]->Name);
}

只能遍历到label,button等直接有caption属性的控件;
Delphi中可以通过TReader类,read和write方法实现;

问:C++builder 中怎么才能遍历到所有组件的Caption属性;

[编译失败]

你是不是想写多语言？象TabSheet这种只能用特殊情况了，没有什么好方法

if (Components[i]->ClassNameIs("TPageControl")) {
TPageControl *p = (TPageControl *)Components[i];
for (int i=0;i<p->PageCount;i++) {
ShowMessage(p->Pages[i]->Caption);
}
}