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.