|
|
| Astuces
- Composants - Récupérer
plusieurs éléments d'un listbox en Delphi |
Ajouter un composant
TButton et TListBox.
Vous devez autoriser la sélection multiple. Pour cela, vous devez
mettre la propriété MultieSlect à True du composant
TListBox.
|
procedure
TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
Label1.Caption:=''; //Efface le contenu
du label
for i := 0 to (ListBox1.Items.Count-1) do
//Boucle pour tous les éléments
begin
if ListBox1.Selected[i]=True then //Vérifie
que l'élément i à été
sélectionnée
begin
if Label1.Caption='' then Label1.Caption:=ListBox1.Items.Strings[i]
else Label1.Caption:=Label1.Caption+'-'+ListBox1.Items.Strings[i];
end;
end;
end;
|
|
|
