Hola.
Opino igual a lo dicho por román.
Podrías hacer algo como:
Código Delphi
[-]
procedure TForm1.RequeridosEnRojo;
var
i: Integer;
begin
for i:= 0 to ComponentCount - 1 do
begin
if (Components[i] is TDBEdit)and TDBEdit(Components[i]).Field.Required then
TDBEdit(Components[i]).Font.Color:= clRed;
if (Components[i] is TDBMemo)and TDBMemo(Components[i]).Field.Required then
TDBMemo(Components[i]).Font.Color:= clRed;
...
...
end;
end;
Estuve intentando algo con RTTI, pero no salió tan rápido como esperaba
,luego probaré nuevamente...
Un saludo.