Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como se utiliza el TRadiogroup (https://www.clubdelphi.com/foros/showthread.php?t=27850)

nenufer 01-12-2005 22:24:30

Como se utiliza el TRadiogroup
 
Buenas. Tengo un problema xq no se como acceder a los items de este componente.Para cuando yo le haga click a uno de estos items q me haga una cosa u otra. E probado con la propiedad itemindex pero me dice q espera un booleano.

Si alguien me puede ayudar lo agradecero muxo.Gracias!!!!

marcoszorrilla 01-12-2005 22:36:05

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;

A ver si con esta idea te sirve.

Un Saludo.

dec 01-12-2005 22:41:48

Hola,

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: ShowMessage('Pulsaste el radio-botón 0');
    1: ShowMessage('Pulsaste el radio-botón 1');
  end;
end;

dec 01-12-2005 22:43:40

Marcos 2 - dec 0

:D :p :) :cool: ;) :D :D

marcoszorrilla 01-12-2005 22:49:04

Pero sigo jugando en casa, espero que en el partido de vuelta no hay ningún problema.

Un Saludo.

ecfisa 30-12-2005 05:47:09

Otro ejemplo...
 
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  RadioGroup1.Items.Add('ITEM 1');
  RadioGroup1.Items.Add('ITEM 2');
  RadioGroup1.Items.Add('ITEM 3');
  RadioGroup1.ItemIndex:= -1;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  // PUEDE SER: ShowMessage(RadioGroup1.Items[RadioGroup1.ItemIndex]);
  // O TAMBIEN...
  case RadioGroup1.ItemIndex of
    1: ShowMessage('OPCION 1');
    2: ShowMessage('OPCION 2');
    3: ShowMessage('OPCION 3');
  end;
end;

vtdeleon 30-12-2005 14:44:32

Eer futre, alguien me puede desifrar el codigo de arriba??:confused:


La franja horaria es GMT +2. Ahora son las 20:46:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi