[volod3000]

Здравствуйте.

У меня Delphi XE.

В ScrollBox создаю RadioGroup .

Пробую менять цвет шрифта

Код:

   
TRadioGroup(RG1.Components[zz]).Font.color := RGB(255,255,255);

или так :

Код:

TRadioButton(RG1.Components[zz]).ParentFont := false;
TRadioButton(RG1.Components[zz]).Font.Color := RGB(255,255,255);

или так, при создании RadioGroup :

Код:

RG1.Font.Name:='Tahoma';
RG1.Font.Size:=8;
RG1.Font.Color := RGB(255,255,255);
RG1.Font.Style:=[fsbold];

и ни чего не происходит .

Решил унаследовать цвет шрифта от родителя и изменить шрифт , как это правильно сделать.

Код:

type
TRadioGroup = class(ExtCtrls.TRadioGroup)
  protected
    procedure Paint;override;
end;

procedure TRadioGroup.Paint;
begin
   что сюда писать
end;