Discussion :

[netah25]

Bonjour

Je cherche a afficher une list de base dans un ListBox. Il faudrat que l'utilisateur puisse en drag&drop remplir un second listBox.

Je ne suis pas marié avec le ListBox, si vous avez un truc mieux a me proposer , je suis preneur

J'ai bien compris qu'il fallait travailler avec le listBox destination apres avoir placer le listBox de bas a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DragMode = dmAutomatic

Je pense bien accepter les drops :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
void __fastcall TForm1::ListBox2DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
Accept = true ;
}

Par contre je ne sais que mettre dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
void __fastcall TForm1::ListBox2DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
// ICI ....
}

Afin de retrouver, sans l'effacver de la source, le nom de l'items cliqué pour le drag ...

Merci pour l'aide que vous pourrez m'apporter

[Djob]

y'a pas mal de possibilités de gestion:
voilà un exemple avec multiselect...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
        Accept=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox2DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
        //gestion multiselect : au moins 1 doit etre selectionné
        Accept=false;
        for (int i=0;i<ListBox1->Items->Count && !Accept;i++){
           if(ListBox1->Selected[i]) Accept=true;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox2DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
        for (int i=0;i<ListBox1->Items->Count;i++)
        {
           if(ListBox1->Selected[i]){
                String ItemTexte = ListBox1->Items->Strings[i];
 
                //choisir ça si la place d'arrivée ne compte pas..
                //ListBox2->Items->Add(ItemTexte);
 
                //sinon si la place d'arrivée compte
                TPoint pt;
                pt.x=X;
                pt.y=Y;
                int item_pos = ListBox2->ItemAtPos(pt,true);
                if(item_pos==-1){
                  ListBox2->Items->Add(ItemTexte);
                }else{
                    ListBox2->Items->Insert(item_pos,ItemTexte);
                }
 
           }
 
        }
        //optionnel : pour effacer de la source
        ListBox1->DeleteSelected();
 
        ListBox2->SetFocus();
}

[netah25]

Cela fonctionne comme je le voulais

Merci M'sieu !