c++ - 如何更改窗体上所有控件的标题？ [C++ 生成器]

Question

我想为所有控件(Tlabel、Tbutton、Teditlabel、Tbitbtn、TGroupBox 等)和所有具有来自语言文件的标题的组件(TMenuItems、TActions)设置标题。

我的问题是 Caption 在 TComponent、TControl 甚至 TWinControl 中都不是公共(public)的。更重要的是，一些“通用”控件(如 TLabel/TBitBtn)甚至不是从 TWinControl 派生的。

示例:

void SetCaptionAll(TComponent *container)
{
   for (int i = 0; i < container->ComponentCount; i++)
      {
      TComponent *child = container->Components[i];
      child->Caption = ReadFromFile;    <-- This won't work. Caption is private
      }
}

最重要的是:我不想使用宏(我认为这就是所谓的)，例如:

#define GetCtrlCaption(p)\
{ code here }

因为这是不可调试的。

我需要 C++ Builder 示例，但也接受 Delphi。

Answer 1

适用于所有 TControl 后代:

 for i := 0 to ControlCount - 1  do
    Controls[i].SetTextBuf('CommonText');

要遍历所有控件，包括子面板中的控件，您可以使用递归遍历:

procedure SetControlText(Site: TWinControl; const s: string);
var
  i: Integer;
begin
  for i := 0 to Site.ControlCount - 1  do begin
     Site.Controls[i].SetTextBuf(PWideChar(s));
     if Site.Controls[i] is TWinControl then
       SetControlText(TWinControl(Site.Controls[i]), s);
  end;
end;

begin
   SetControlText(Self, 'CommonText');

对于像 TMenuItems 这样的组件，你可以使用 RTTI - 检查组件是否有像 Caption、Text 等属性，并设置新的字符串。

使用旧式方法的 Delphi RTTI 示例(新的 RTTI 自 D2010 起可用)。不确定works for Builder

 uses... TypInfo

 if IsPublishedProp(Site.Controls[i], 'Caption') then
   SetStrProp(Site.Controls[i], 'Caption', 'Cap');