Tema: Codificacion
Ver Mensaje Individual
  #2  
Antiguo 08-02-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Puedes poner este codigo en el evento OnClick de tu componente TRadioGroup:
Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
  0:begin
    ShowMessage('Se ha elegido el la opcion CERO de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion CERO
    end;
  1:begin
    ShowMessage('Se ha elegido el la opcion UNO de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion UNO
    end;
  2:begin
    ShowMessage('Se ha elegido el la opcion DOS de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
    //Código para la opcion DOS
    end;
  3:begin
    ShowMessage('Se ha elegido el la opcion  TRES de nombre : '+RadioGroup1.Items[RadioGroup1.ItemIndex]);
   //Código para la opcion TRES
    end;
  ... //etc,etc
 end;//fin de sentencia CASE

end;
Espero te sea de utilidad..
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita