Es posible hacer una nueva clase de componente ??

[santus]

Empezado por maeyanes

Hola...

Primero, recuerda que existen las etiquetas [ delphi ] [ /delphi ] (sin los espacios en blanco) para publicar código fuente en Delphi.

Sobre tu inquietud, bueno, existen varias formas de hacerlo...

Por ejemplo, todos los tipos de componente que usas heredan de TWinControl, entonces tu código puede quedar más o menos así:

Código Delphi [-]for I := 0 to Pred(ComponentCount) do if (Components[i] is TWinControl) and (TWinControl(Components[i]).Color = clRed) then begin ShowMessage('Falta completar datos... ');
b := 1
end


Ahora, existe otra posibilidad y es usando RTTI (Runtime Type Information). Puedes buscar mucha información sobre RTTI tanto en la web como en el foro...


Saludos...

Hola maeyanes ..

perdon que me meta. La verdad que vi interesante tu planteo. El tema es que lo intenté probar en mi delphi 2007 y no funciona!!

a la linea:

Código Delphi [-]
TWinControl(Components[i]).Color

me tira el siguiente error:

[DCC Error] Unit2.pas(31): E2362 Cannot access protected symbol TControl.Color

Se me ocurre que con el delphi 2007 esto no anda??.. alguna idea??.. es curiosidad nomas...

muchas gracias. Saludos.

[[maeyanes]]

Hola...

Eso me pasa por no verificar antes... jejeje

Bueno, resulta que la propiedad Color en TWinControl, al igual que en [/b]TControl[/b] de la cual desciende, es una propiedad protegida y es TEdit quien la declara como published.

Es por eso que obtienes ese error en el código que puse...

En ese caso es mejor usar la opción del RTTI...


Saludos...

[ilichhernandez]

Gracias estimados, acabo de probar y me da el mismo error que tiene Santus asi que vere mediante RTTI a ver que averiguo, muchas gracias a todos. Saludos

[roman]

Código Delphi [-]
type
  TControl = class(Controls.TControl);

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;

begin
  for I := 0 to ControlCount - 1 do
    TControl(Controls[i]).Color := clRed;
end;

// Saludos

[ilichhernandez]

Voy a revisar esta nueva opcion, muchas gracias por lacolaboracion, se agradece..... Saludos, luego les cuento....

[Neftali [Germán.Estévez]]

Creo que la opción mejor es la publicada por Román.

Utilizar RTTI será más complicado que eso ya te lo aseguro...
Lo único que te aportaría utilizar RTTI es que podrías asignar el valor a la propiedad color de la misma forma que al resto sin que todos los componentes descencieran de TControl.