Discussion :

[nico1492]

salut !
je voudrais savoir comment fait on pour faire Glisser depasser un item entre 2 Listbox ?

merci d'avance

[Thierry Rapp]

Voici un bout de code :
Avec ListBoxSource.DragMode = dmAutomatic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.ListBoxDestDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept := Source = ListBoxSource;
end;
 
procedure TForm1.ListBoxDestDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 ListBoxDest.Items.Add(ListBoxSource.Items[ListBoxSource.ItemIndex]);
end;

[Morvan Mikael]

Regarde du côté de BeginDrag et EndDrag. L'aide de Delphi est assez complète pour ça...

A+