list.selcount

[juaarias]

list.selcount me indica el numero de items seleccionado?es decir si es igual a cero es porque hay al menos uno seleccionado?

[juaarias]

si es mayor a cero es porque hay al menos uno seleccionado?

[ecfisa]

Hola juaarias.

si es mayor a cero es porque hay al menos uno seleccionado?

Así es.

Cuando es mayor a 1 (hay más de un elemento seleccionado) recorré los items verificando la propiedad Selected para saber cuales han sido seleccionados.

Saludos.

[juaarias]

hola, sabia que era esa la condicion pero no logro hacer funcionar con exito el siguiente codigo:

Código Delphi [-]
if lstProductos.SelCount>0  then
    begin
    frmEditar.show;
    frmEditar.txtNuevoNombre.Text:=frmDatos.lstProductos.Items[frmDatos.LstProductos.ItemIndex];
    frmEditar.txtNuevoPrecio.Text:=frmDatos.lstPrecios.Items[frmDatos.LstPrecios.ItemIndex];
    end;

lo que intento es que tengo una lista de productos si hay seleccionados que muestre el form editar para editar nombre y precio,sino nada o algun cartel,el hecho es que selecciono elementos y no me prosigue a editar.

[ecfisa]

Hola juaarias.

Tendría que funcionar si tenés la propiedad MultiSelect igual a True en los componentes, ya que no tiene sentido usar SelCount si sólo se va a seleccionar un elemento...

Para ajustarse a tu caso debería ser:

Código Delphi [-]
  if (lstProductos.SelCount = 1)and(lstPrecios.SelCount = 1) then
  begin
    frmEditar.txtNuevoNombre.Text:=frmDatos.lstProductos.Items[frmDatos.LstProductos.ItemIndex];
    frmEditar.txtNuevoPrecio.Text:=frmDatos.lstPrecios.Items[frmDatos.LstPrecios.ItemIndex];
    frmEditar.show;
  end;

Pero dado que sólo se envía un dato de cada componente y para no confundir al usuario permitiendo selecciones múltiples, mejor sería dejar la
propiedad MultiSelect en False y simplemente usar:

Código Delphi [-]
  if (lstProductos.ItemIndex <> -1)and(lstPrecios.ItemIndex <> -1) then
  begin
    frmEditar.txtNuevoNombre.Text:=frmDatos.lstProductos.Items[frmDatos.LstProductos.ItemIndex];
    frmEditar.txtNuevoPrecio.Text:=frmDatos.lstPrecios.Items[frmDatos.LstPrecios.ItemIndex];
    frmEditar.show;
  end;

Saludos.

[Casimiro Noteví]

Por favor, juaarias, procura poner títulos descriptivos a tus hilos, según se explica en nuestra guía de estilo, muchas gracias por tu colaboración.