Fórum Utilizando o (Sender as Classe).NomeMetodo. #267325

procedure LimpaForm(xForm: TForm);
var I : integer;
    xName: string;
begin
    with xForm do
    begin
      for I := ComponentCount - 1 downto 0 do
      begin
        xName := Components[I].Name;
        try
          if (Components[i] is TEdit) then
             TEdit(Components[i]).Clear

... TODAS AS CLASSES QUE VC QUER USAR

          else if (Components[i] is TMemo) then
             TMemo(Components[I]).TabStop := false

        except on E: Exception do
          Messagedlg(´ERRO LIMPA: ´+xName+´ ´+E.Message,mtError,[mbOk],E.HelpContext);
        end;
      end;
    end;
end;

type
  TCrackedControl = class(TControl);

// ...

// talvez seja redundante testar se é TControl!
IF (Componente is TControl) and (Componente is VetClass[x]) Then
  TCrackedControl(Componente) .Text := ´xx´; 

uses
  TypInfo,

// ...

function GetPropCount(const AInstance: TPersistent): Integer;
// Determina o total de propriedades publicadas por um objeto
var
  TypeDataP: PTypeData;
begin
  TypeDataP := GetTypeData(AInstance.Classinfo);
  Result := TypeDataP^.PropCount;
end;

function GetPropName(const AInstance: TPersistent; const AIndex: Integer): string;
// Obtem o nome de uma propriedade publicada por um objeto
var
  PropListP: PPropList;
  PropInfoP: PPropInfo;
  TypeDataP: PTypeData;
begin
  Result := ´´;
  TypeDataP := GetTypeData(AInstance.Classinfo);
  GetMem(PropListP, TypeDataP^.PropCount * SizeOf(PPropInfo));
  try
    GetPropInfos(AInstance.ClassInfo, PropListP);
    PropInfoP := PropListP^[AIndex];
    Result := PropInfoP^.Name;
  finally
    FreeMem(PropListP, TypeDataP^.PropCount * SizeOf(PPropInfo));
  end;
end;

procedure SetControlProperty(const AControl: TControl; const APropertyName, APropertyValue: string);
// Atribui um valor a uma propriedade de um controle.
var
  PropertyCount: Integer;
  PropertyName: string;
  SubControl: TControl;
  S: string;
  N: Integer;
begin
  // Verifica se e uma propriedade "composta", do tipo font.color
  N := Pos(´.´, APropertyName);
  if N > 0 then begin
    // Determina qual o subcontrole...
    S := Copy(APropertyName, 1, Pred(N));
    SubControl := TControl(GetOrdProp(AControl, S));
    // ...qual a propriedade...
    S := Copy(APropertyName, Succ(N), MaxInt);
    // ...e ajusta o valor
    SetControlProperty(SubControl, S, APropertyValue);
  end
  else begin
    // Determina o total de propriedades publicadas pelo controle
    PropertyCount := GetPropCount(AControl);
    // Busca pela propriedade
    for N := 0 to Pred(PropertyCount) do begin
      PropertyName := GetPropName(AControl, N);
      if CompareText(PropertyName, APropertyName) = 0 then begin
        // Atribui o valor
        case PropType(AControl, APropertyName) of
          tkLString, tkWString, tkString:
            SetStrProp(AControl, APropertyName, APropertyValue);
          tkChar, tkInteger:
            // Valores do tipo TColor não são enumeracoes... :o(
            if CompareText(Copy(APropertyValue, 1, 2), ´cl´) = 0 then begin
              try
                SetOrdProp(AControl, APropertyName, StringToColor(APropertyValue));
              except
                SetOrdProp(AControl, APropertyName, StrToIntDef(APropertyValue, 0));
              end;
            end
            // Valores do tipo TCursor não são enumeracoes... :o(
            else if CompareText(Copy(APropertyValue, 1, 2), ´cr´) = 0 then begin
              try
                SetOrdProp(AControl, APropertyName, StringToCursor(APropertyValue));
              except
                SetOrdProp(AControl, APropertyName, StrToIntDef(APropertyValue, 0));
              end;
            end
            else begin
              SetOrdProp(AControl, APropertyName, StrToInt(APropertyValue));
            end;
          tkEnumeration:
            SetEnumProp(AControl, APropertyName, APropertyValue);
          tkInt64:
            SetInt64Prop(AControl, APropertyName, StrToInt(APropertyValue));
          tkFloat:
            SetFloatProp(AControl, APropertyName, StrToFloat(APropertyValue));
          tkSet:
            SetSetProp(AControl, APropertyName, APropertyValue);
          tkClass: begin
              if TPersistent(GetOrdProp(AControl, APropertyName)) is TStrings then begin
                // Os itens devem estar separados por #1310 na string
                TStrings(GetOrdProp(AControl, APropertyName)).Text := APropertyValue;
              end;
            end;
        end;
        // Encontrou a propriedade, pode parar
        Break;
      end;
    end;
  end;
end;

SetControlProperty(Edit1, ´Text´, ´Texto exemplo´);
SetControlProperty(Label1, ´Top´, ´40´);

procedure TForm1.Button2Click(Sender: TObject);
Var I : Integer ;
    c : TComponent;
    propInfo: PPropInfo;     
begin
  for i:=0 to ComponentCount-1 do
  begin
     c := components[i];
     propInfo := getPropInfo(c.classinfo,´Text´);
     if assigned(propinfo) then         //If found
        SetPropValue(c,´Text´,´TESTANDO´);
  end;
end ;