TIniFiles y Controles

[[Al González]]

¡Hola!

Esto puede ser de utilidad:

Código Delphi [-]
Uses
  TypInfo;

Procedure SetFontColor (Const Control :TWinControl; Const Color :TColor);
Begin
  (GetObjectProp (Control, 'Font') As TFont).Color := Color;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetFontColor (Edit1, clRed);
  SetFontColor (RadioButton1, clRed);
end;

La clave es obtener el objeto Font mediante RTTI.

Saludos.

Al González.

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

Utilizando RTTI puedes también recorrer todos los componentes de un formulario y "preguntar" cuales de ellos tienen la propiedad Font para aplicarles el cambio.

[pablonill]

Ya lo pruebo, armo algo de codigo y subo.

Muchisimas gracias!