FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
radiobuttons
Hola a todos. ¿cómo puedo hacer que un radiobutton deje de estar pulsado?. La idea es que tengo varios, y al pulsar uno de ellos y posteriormente un botón, todos los radiobutton tienen que estar sin pulsar.
Gracias. |
#2
|
||||
|
||||
Si como es previsible se trata de un RadioGroup que contiene varios botones:
Código:
procedure TForm1.Button1Click(Sender: TObject); begin RadioGroup1.ItemIndex:=-1; end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
No es un radiogroup, son varios radiobuttons sueltos. Vale con el mismo código???
|
#4
|
||||
|
||||
No:
Código:
procedure TForm1.Button1Click(Sender: TObject); begin RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False; end;
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
|||
|
|||
Gracias por tu ayuda.
|
#6
|
||||
|
||||
Si tienes muchos botones:
Código:
procedure TForm1.Button1Click(Sender: TObject); var nCont:Integer; MiRadio:TRadioButton; begin for nCont:=0 to Componentcount -1 do begin If Components[nCont] is TradioButton then begin MiRadio:=Components[nCont] as TradioButton; MiRadio.Checked:=False; end; end; end;
__________________
Guía de Estilo de los Foros Cita:
|
#7
|
||||
|
||||
Código final, así quedaría más compacto:
Código:
procedure TForm1.Button2Click(Sender: TObject); var nCont:Integer; begin for nCont:=0 to Componentcount -1 do begin If Components[nCont] is TradioButton then begin (Components[nCont]as TRadioButton).Checked:=False; end; end; end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|