Código
procedure TForm1.RADIOGROUP1Click(Sender: TObject);
Var
i : Integer;
begin
// Para trocar as cores dos botoes do RadioGroup
for i := 0 to RADIOGROUP1.Items.Count-1 do begin
TRadioButton(RADIOGROUP1.Controls[i]).Font.Color := clGreen;
TRadioButton(RADIOGROUP1.Controls[i]).Font.Style := [fsBold];
end;
TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Color := clRed;
TRadioButton(RADIOGROUP1.Controls[RADIOGROUP1.ItemIndex]).Font.Style := [fsBold];
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009