Delphi - radiobutton group

 
Vista:

radiobutton group

Publicado por Ruth Aviles (1 intervención) el 04/02/2006 18:42:41
Hola
Soy nueva en Delphi, y estoy trabajando en el desarrollo de un programa con interface de Delphi 6 sobre base de datos en access, necesito con urgerncia saber como puedo crear un grupo de 4 radiobuttons en un mismo frame para alternativas a llenar en uno de los campos de mi base de datos,

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:radiobutton group

Publicado por Perberos (5 intervenciones) el 05/02/2006 00:12:31
Te digo la manera drastica de hacerlo, o la manera más bruta, como prefieras llamarla

puedes crear los 4 componentes en tiempo diseño o en tiempo de ejecucion, eso debes aclarar, en fin.

Si quieres likear los 4 componentes, puedes optar por llamarlos con el mismo nombre pero con un numero seguido, es decir. radioButton1, radioButton2,radioButton3,radioButton4...

Luego colocarles en cada evento onclick
var
i:integer;
begin
for i := 1 to 4 do
begin
TRadioButton(FindComponent('radioButton' + IntToStr( i ) ) ) .checked := false;
end;

TRadioButton(Sender).checked := true;

end;

Y para encontrar el valor establecido, puedes usar su tag, estableces un numero para los 4 radiobutton y asi utilizarlo como...:
Valor := TRadioButton(Sender).tag

osea quedaria algo asi:

var
i:integer;
begin
for i := 1 to 4 do
begin
TRadioButton(FindComponent('radioButton' + IntToStr( i ) ) ) .checked := false;
end;

TRadioButton(Sender).checked := true;
//<---- aqui estableces un valor, tambien se puede usar...
Case TRadioButton(Sender).tag of
1: HacertalCosa;
2: lalala;

3: begin
lalala;
yMasLalala;
end;
4: lalala;
end;
end;

//Espero haberte ayudado aunque sea un poquito, cya :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar