Как узнать значения свойств компонента?

Question

[nonvon]

подскажите пожалуйста - как передать тип класса в процедуру? хочу узнать значения свойств компонента

procedure TformMain.SetProperties(FormName: Tform; ClassName, SomeProperty: string;
                                  Value, ClassNamePStart, ClassNamePStop: Integer; Condition: string; ClassType: Tclass);

var  i: integer; PropInfo: PPropInfo; Component: TComponent;

begin


  for i := 0 to FormName.ComponentCount - 1 do
  begin
    Component := FormName.Components[i];

   if ClassName = copy(Component.GetNamePath, ClassNamePStart, ClassNamePStop)  then
    begin

  if Condition <> ''  then
   begin
    with findcomponent(Component.GetNamePath) as ClassType do

    ShowMessage(Hint);
   end;

      PropInfo := GetPropInfo(Component.ClassInfo, SomeProperty);
      if Assigned(PropInfo) then
        SetOrdProp(Component, PropInfo, Integer(Value));
    end;
  end;
end;

SetProperties(formMain, 'rps_rb', 'enabled', 1, 0, 6, 'hint', TRadioButton);

Answer 1

[nonvon]

ShowMessage(TControl(FindComponent(Component.Name)).Hint);