Buenas!! Tengo un formulario con un pagecontrol. Dentro de un tabsheet,un Colorbox con mis propios colores,y un groupbox y dentro de este unos cuantos Dbedits,Datatimepicker y un TdbMemo. Lo que quiero es que al elegir un color del colorbox me cambie el color de la letra de todos loc componentes que tengo en el groupbox.
Hice una prueba a parte y si que me salio(pero eran con edits y memos normales), pero al introducirlo en mi aplicacion no cambia el color y tampoco me da ningun error. El codigo que utilizo es :
Código Delphi
[-]
procedure TForm1.ColorBoxChange(Sender: TObject);
var
Colorfont : String;
i : Integer;
Componente : TComponent;
begin
ColorFont := ColorBox.ColorNames[ColorBox.itemindex];
for i:=0 to groupbox.ComponentCount-1 do
begin
Componente := groupbox.Components[i];
if (Componente is TDBEdit) then
(Componente as TDBEdit).Font.Color := StringToColor(ColorFont)
else
if (Componente is TDBMemo) then
(Componente as TDBMemo).Font.Color := StringTocolor(ColorFont)
else
if (Componente is TDateTimepicker) then
(Componente as TDateTimepicker).Font.Color := StringToColor(ColorFont);
end;
end;
Gracias de antemano