listbox seleccionado o no?

[juaarias]

hola gente como va necesito una ayudin con listbox para saber si hay algun elemento seleccionado o no,con multiselct true y en false;desde ya gracias¡¡¡¡

[ecfisa]

Hola.

Podes hacer:

Código Delphi [-]
function HaySeleccion(AListBox: TListBox): Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to AListBox.Items.Count-1 do
    if AListBox.Selected[i] then
     Result:= True;
end;

Ejemplo de uso:

Código Delphi [-]
   if HaySeleccion(ListBox1) then
   ...

Saludos.

[juaarias]

ahora molesto nuevamente, para obtener el indice de un elemento seleccionado en un listbox con multiselect en false, para luego agregar un elemento en otro listbox pero en esa posicion

[[escafandra]]

Código Delphi [-]
ListBox1.ItemIndex;

Saludos.