CheckListBox

[[Lepe]]

Siento haber tardado tanto, pero he estado fuera 1 semana.

Código Delphi [-]
begin
  with Checlistbox do
  if itemindex <> -1 then // si hay alguno seleccionado
  if Checked[itemindex] then // si tiene la casilla marcada el que está seleccionado
     result := items[itemindex]
end;

He añadido lo de Checked[itemindex] porque, al ser un CheckListbox, supongo que quieres que esté marcada la casilla para aceptarlo.


Saludos;