Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda con este codigo (https://www.clubdelphi.com/foros/showthread.php?t=57383)

kurono 12-06-2008 23:54:44

ayuda con este codigo
 
hola amigos estoy haciendo una aplicacion donde elige preguntas a lazar donde las respuesta son de selecion multiple y se eligen a lazar tambien hasta ahi todo bien .pues me elige una pregunta a la ves al igual q una respuesta tambien a la ves.

lo que quiero hacer es como las respuesta son a lazar visualizar toda las respuesta en varios radiobuttons .

e qui una muestra del codigo que estoy empleando me gustaria saber como modificarlo para que me muestre todas las respuesta a lazar en varios radiobuttons

Código Delphi [-]
var Left, Index: Cardinal;

begin
 Left := 5;
 Randomize;
 while LongBool(Left) do
  begin
   Index := Random(ListBox1.Count);
   Radiobuttons.caption:=(ListBox1.Items[Index]);
//   ListBox1.Items.Delete(Index); // para no repetir...
   Dec(Left);
  end;
end;

Caro 13-06-2008 00:48:07

Hola kurono, utiliza un RadioGroup para ir añadiendo todas tus respuestas al azar en tus RadioButtons.

Código Delphi [-]
var
 Left, Index: Cardinal;
begin
 Left := 5;
 Randomize;
 while LongBool(Left) do
  begin
   Index := Random(ListBox1.Count);
   RadioGroup1.Items.Add(ListBox1.Items[Index]);
   //ListBox1.Items.Delete(Index); // para no repetir...
   Dec(Left);
  end;
end;

Saluditos

kurono 13-06-2008 00:55:52

ok un amigo mio me dijo lo mismo pero me canse de buscar el radiogroup eb delphi y no lo encontre en q paleta se encuentra

Caro 13-06-2008 00:59:45

Hola de nuevo kurono, el RadioGroup esta en la primera paleta "Standard", es el antepenultimo componente.

Saluditos

kurono 13-06-2008 01:03:29

ooohhh si ya lo vi disculpa la molestia lo que pasa es que no e usado todos los componente de esa paleta y habia ignorado ese componente gracia por tu ayuda


La franja horaria es GMT +2. Ahora son las 17:45: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