mighty_warrior
Messages postés123Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention 9 février 2010
-
13 avril 2007 à 00:18
mighty_warrior
Messages postés123Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention 9 février 2010
-
13 avril 2007 à 10:30
Bonjour,
Je dispose de 2 shellListView et je voudrai arriver a déplacer un fichier en faisant un drag and drop du 1er shellListView au second shellListView.
J'ai chercher sur google, divers sites internet et j'ai même poser la question sur un autre forum mais rien du tout, nada, j'en suis toujours au point de départ.
Donc bien évidemment si quelqu'un à une réponse à me fournir je suis preneur
autre détail qui, peut être, peut avoir son importance: je dispose des composants DragDropFLi.
begin
if Sender = Source then
with TListBox(Sender) do
begin
_selected := ItemIndex;
Pt.X := X;
Pt.Y := Y;
Exists := False;
NewInd := ItemAtPos(Pt, Exists); //avoir l'élément de destination.
//la variable exists ne sert à rien ici.
if NewInd = -1 then Exit;
itemcpt := Items[_selected];
//déterminer la direction
if NewInd < _selected then
begin
Items.Insert(NewInd, itemcpt);
Items.Delete(_selected + 1);
end else begin
Items.Delete(_selected);
if NewInd >= Items.Count then
NewInd := Items.Add(itemcpt) //on ajoute en dehors de la liste
else Items.Insert(NewInd, itemcpt);
end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin Accept :Sender ListBox1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{ Vous pouvez mettre ceci dans l'inspecteur de propriété.
je l'ai mis là car ça évite de l'oublier }
ListBox1.DragMode := dmAutomatic;
end;
mighty_warrior
Messages postés123Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention 9 février 2010 13 avril 2007 à 10:30
On s'est mal compris car en lisant je voi que ta démo sert a déplacer les élément d'un listBox à l'interieur de lui même.
Ce que je souhaiterais faire c'est par exemple déplacer un fichier de Mes document vers c:\ en utilisant 2 ShellListView, l'un pointant sur Mes documents et le 2éme sur C:\ et en faisant un drag and drop du fichier du 1er ShellListView vers le 2éme on déplace le fichier.
En tout cas merci car ta démo pourra me servir pour une autre aplication