Multiselect avec retourner sur Tedit

Réponse acceptée !

dans les propriétés de la TListBox, MultiSelect doit etre a true puis dans l'evenement OnClick de la TListBox ou grace a un boutton :


procedure TForm2.Button1Click(Sender: TObject);
var N, SC : integer;
    S : string;
begin
  if ListBox1.SelCount = 0 then
    Exit;

  SC := 1;
  S  := '';

  for N := 0 to ListBox1.Count-1 do
    if ListBox1.Selected[N] then
    begin
      if SC < ListBox1.SelCount then
        S := S + ListBox1.Items[N] + ', '
      else
        S := S + ListBox1.Items[N];
      inc(SC);
    end;
  Edit1.Text := S;
end;

---

Réponse acceptée !

alors petite precision :

si je te fait utiliser une variable S de type String plutot que la propriété Text du TEdit dans la boucle, c'est pour eviter d'appeler le OnChange du TEdit a chaque iteration de boucle.
comme cela on garde des performances "identique" selon si on selectionne 1, 5, 10, 100 elements.

si tu as d'autres questions, hesite pas, mais cherche un peu avant quand même.

bonne journée et bonne continuation.

---