Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   list box delphi (https://www.clubdelphi.com/foros/showthread.php?t=73580)

juaarias 03-05-2011 01:17:42

list box delphi
 
Hola amigos,queria consultar sobre como hacer para en dos listbox cuando selecciono el items de uno se seleccione un elemento del otro..espero puedan ayudarme

ecfisa 03-05-2011 01:46:05

Hola juaarias.

No explicas mucho sobre el contenido de los combos, pero en principio sería:

En el evento OnClick de ListBox1:
Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ListBox2.ItemIndex:= ListBox1.ItemIndex;
end;

En el evento OnClick de ListBox2:
Código Delphi [-]
procedure TForm1.ListBox2Click(Sender: TObject);
begin
  ListBox1.ItemIndex:= ListBox2.ItemIndex;
end;

Saludos.

juaarias 03-05-2011 01:51:31

lstbox
 
con esos eventos en cada uno,cuando selecciono un items de uno se seleciona un items de otro listbox?nose si me entendiste bien?

juaarias 03-05-2011 02:02:47

lstbox
 
idolo lo que yo quiero es que si selecciono el items 2 de listbox1 se selecciones el items 2 del listbox2.me explico?

ecfisa 03-05-2011 02:59:53

Hola.
Cita:

con esos eventos en cada uno,cuando selecciono un items de uno se seleciona un items de otro listbox?
Si, así es, pero no cualquier item; se seleccionará el item que se corresponde a la posición donde se hizo un click. La propiedad ItemIndex especifica el item seleccionado actualmente.

Si el número de ítems difiere de un ListBox al otro tendrías que hacer:
Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex <= ListBox2.Items.Count then
     ListBox2.ItemIndex:= ListBox1.ItemIndex;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  if ListBox2.ItemIndex <= ListBox1.Items.Count then
   ListBox1.ItemIndex:= ListBox2.ItemIndex;
end;
Ahora si lo que buscas es agregar la propiedad OnChange a un TListBox para detectar el cambio cuando te desplaces con las teclas Up y Down, en este enlace encontrarás el código: List Box+Drag and Drop+OnChange.


Un saludo.

juaarias 03-05-2011 03:07:22

lstbox
 
hola,primeromuchas gracias por tu tiempo,nose si es la hr pero ando medio duro ejje,mis listbox1 y listbox2 tienen la misma cantidad de elementos ya que son producto y precio respectivamente.con la primera opcion deberia andar?porque lo he intentado pero no logro que asi suceda

ecfisa 03-05-2011 03:45:15

Hola juaarias.

Es extraño que no te funcione si tenés bién asignado los eventos... Te adjunto un codigo de ejemplo para que puedas chequearlo.

Un saludo

juaarias 03-05-2011 03:55:00

lstbox
 
gracias idolo ahora si estaba poniendolo para la chicota...muchas gracias...y una pequeña consulta se puede hacer una lista editable?

ecfisa 03-05-2011 04:52:55

Hola juaarias.

No entiendo muy bién lo de la lista editable, ¿ Que es más o menos lo que querés hacer ?

Saludos.

juaarias 03-05-2011 04:58:58

lstbox
 
ya lo resolvi d euna manera mas rebuscada, lo que queria hacer es una lista donde el usuario ingrese datos como ser cantidad de productos que compra,pero creo no se puede hacer


La franja horaria es GMT +2. Ahora son las 07:08:57.

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