Código Delphi [-] procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0:ShowMessage('Eligio el 1'); 1:ShowMessage('Eligio el 2'); 2:ShowMessage('Eligio el 3'); end; end;
procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0:ShowMessage('Eligio el 1'); 1:ShowMessage('Eligio el 2'); 2:ShowMessage('Eligio el 3'); end; end;