C++ builder 遍历所有组件的 caption 属性,轻松实现界面多语言支持

1.读所有组件的 caption 属性:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

TPropInfo *info;

String tmp;

TForm   *FormTemp;
TObject *p;

Memo1->Clear();

for( int i=0;i<Application->ComponentCount;i++)
{
GetCaption ( Application->Components[i] );    }

}

void __fastcall TForm1::GetCaption ( TComponent *p )

{

int i,count;

String tmp;

TPropInfo *info;

count = p->ComponentCount;
for ( i=0; i<count; i++ )
{
GetCaption ( p->Components[i] );
info = GetPropInfo( p->Components[i],  "Caption" );
if ( info )
{
tmp  = p->Components[i]->Name + "=" + GetStrProp( p->Components[i], "Caption");
Memo1->Lines->Add( tmp );
}
}
return;

}

2.通过 SetStrProp ( FormTemp->Components[j], info, “SetStrProp”); 设置组件的属性;

3.通过读写一个 language.ini 可轻松实现界面的多语言支持;

引用块内容

========================================================================