Buscar

Para trocar as cores dos botões do radiogroup

Código

//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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 6406 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009