Ver Mensaje Individual
  #2  
Antiguo 07-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita