delphi 中判断对象是否具备某一属性

 http://blog.csdn.net/arbin_he/article/details/6256091

delphi 中判断对象是否具备某一属性

标签： delphicomponentsinteger

2011-03-17 14:06 753人阅读 评论(0) 收藏 举报

 分类：

 

Delphi（18） 

版权声明：本文为博主原创文章，未经博主允许不得转载。

 

  Uses   TypInfo;

  {$R   *.dfm}

  procedure   TForm1.Button1Click(Sender:   TObject);
  var
      I:   Integer;
  begin
      for   I   :=   0   to   ComponentCount   -   1   do
          if   IsPublishedProp(Components[I],   'Caption')   then
              ListBox1.Items.Add(Components[I].Name);

  end;