请问能否判断一个控件是否有某个属性？

Question

譬如说caption.

Answer 1

uses typinfo;var
  i: Integer;
begin
  for i := 0 to Form1.ControlsCount-1 do 
    if IsPublishedProp(Form1.Controls[i], 'caption') then
      SetPropValue(Form1.Controls[i], 'rcaption', true);
end;

Answer 2

uses typinfo;var
  i: Integer;
begin
  for i := 0 to Form1.ControlsCount-1 do 
    if IsPublishedProp(Form1.Controls[i], 'caption') then
      SetPropValue(Form1.Controls[i], 'caption', true);
end;

Answer 3

uses typinfo;var
  i: Integer;
begin
  for i := 0 to Form1.ControlsCount-1 do 
    if IsPublishedProp(Form1.Controls[i], 'caption') then
      SetPropValue(Form1.Controls[i], 'caption', '刚才是我搞错了');
end;

Answer 4

IsPublishedProp, 只是对Published属性,没有Published的属性就不行

Answer 5

谢谢两位大侠!
但是如果是Items属性,那应该怎么样取得呢?

Answer 6

uses typinfo;var
  i: Integer;
begin
  for i := 0 to Form1.ControlsCount-1 do 
    if IsPublishedProp(Form1.Controls[i], 'Items') then
      ShowMessage('具有Items属性!');
end;