巧妙运用Components

最新推荐文章于 2025-11-20 01:48:43 发布

原创最新推荐文章于 2025-11-20 01:48:43 发布 · 723 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#components #bt

BCB 专栏收录该内容

6 篇文章

订阅专栏

博客展示了实现对Form体动态改变的代码。代码中设置了Form标题及标签字体大小，定义了标签和按钮的文本数组，通过遍历组件，根据组件类型分别为标签和按钮设置相应的文本内容。

//以下是实现对Form体的动态改变

   FormE1->Caption="密码管理";
   Label1->Font->Size=16;
   Label2->Font->Size=8;
   Label3->Font->Size=Label2->Font->Size;
   Label4->Font->Size=Label2->Font->Size;
   //
   AnsiString LT[]={"密码权限管理："，"人员姓名：","权限等级："，"密码："};
   AnsiString BT[]={"增加","删除","修改","取消"};
   AnsiString TLString("TLabel");
   AnsiString TBString("TButton");
   TLabel *Lab;
   TButton *Bt;
   for(int i=0;i<ComponentCount;i++){
      if (Components[i]->ClassNameIs(TLString)){
         Lab=(TLabel *)Components[i];
         Lab->Caption=LT[i];
         }
      if(Components[i]->ClassNameIs(TBString)){
         Bt=(TButton *)Components[i];
         Bt->Caption=BT[i];
         }
   }