//No Object Inspector na propriedade Font coloque a cor verde.
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;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário