Uso del listbox....

[[xEsk]]

Lo q hace el codigo puesto por maeyanes es añadir los items con un "objeto asociado", q contiene un valor "Integer" (entero).

Asi pues al hacer click encima de uno de los items del ListBox1 (por ejemplo) puedes obtener su valor y asignarselo al Gauge.

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Gauge1.Progress := Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
end;

Pero de todos modos no entiendo muy bien q es lo q quieres hacer, hehe, si puedes explicarlo de otra forma, te podria ayudar mas hehe.

Saludos.

[[maeyanes]]

Primero que nada, una pequeña disculpa por lo poco parco de mi mensaje anterior. Ya iba de salida del trabajo así que solo puse como lo podrías hacer pensando que te ayudaría de esa forma.

Como bien menciona xEsk, el método AddItem del TListBox te permite agregar un elemento a la lista con un objeto asociado, al pedir como segundo parámetro un TObject hacemos un casting para que acepte el tipo Integer:

Código Delphi [-]
ListBox1.AddItem('Gauge 100%', TObject(100));

Ya teniendo los elementos en el listbox con un objeto asociado, al momento de obtener estos valores, usamos la propiedad Items, que contiene un arreglo con los objetos asociados a los elementos. Los valores de este arreglo se obtienen así:

Código Delphi [-]
  Gauge1.Progress := Integer(ListBox1.Items.Objects[ListBox.ItemIndex]); // Se hace un casting a Integer ya que este es el tipo de datos original.

Con todo esto te ahorras tener un if para comprobar el ItemIndex de cada elemento y también resuelves tu problema de que no importe en que orden metes los porcentajes al listbox.



Saludos...

[WilloW]

Muchas gracias ahora lo voy a probar a ver si me sirve con lo que estoy haciendo ya que lo del guage era solo un ejemplo cualquier cosa aviso. Salu2!!