Discussion :

[Charette]

Bonjour,

Je souhaite réaliser un drag and drop depuis l'explorateur windows vers un TListView.

Lorsque que je passe le handle de ma form contenant la ListView en paramètre à DragAcceptFiles comme ceci il n' y a pas de problème.

Code :

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

DragAcceptFiles(Handle,true);

Comme je veux limiter la zone de drag and drop à ma listView je fais ceci:
je passe le handle de ma ListView comme ceci

Code :

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

DragAcceptFiles(ListView.Handle,true);

le programme n'intercepte pas le message windows du drop.

Pourquoi?

Voici la fonction appelé lors du drop du fichier et sa déclaration

Code :

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

   procedure DragDrop(var msg: TWMDropFiles); message WM_DROPFILES;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Form.DragDrop(var msg : TWMDropFiles);
var nom_fichier : array [0..500] of char;
    nb_fichier,i : integer;
begin
  //Récupération du nombre de fichier en cours de déplacement
  nb_fichier := DragQueryFile(msg.Drop,$FFFFFFFF,nom_fichier,sizeof(nom_fichier));
 
  for i:= 0 to nb_fichier - 1 do
  begin
    //Récupération du ième fichier
    DragQueryFile(msg.Drop,i,nom_fichier,sizeof(nom_fichier));
     ShowMessage('OK');
  end;
  DragFinish(msg.Drop);

[Jer']

J'ai constaté le même comportement. C'est étrange, parce que le fait de faire le DragAccpetFiles avec le Handle de la ListView semble être bien compris, car lorsque tu fait la manip, on voit bien que le changement de curseur de la souris se fait bien au passage sur la ListView, mais la proc DragDrop ne semble pas déclenchée.

Cependant, j'ai une propostion :

Dans le Create, tu fait toujours :

Code :

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

DragAcceptFiles(ListView.Handle,true);

Ensuite, tu met un objet TApplicationEvents sur ta fiche, et dans l'évènement OnMessage :

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
const
  MaxLen = 512;
var
  I,
  J,
  Count : integer;
  File : string;
begin
  if (Msg.message = WM_DROPFILES) then
  begin
    Count := DragQueryFile(Msg.wParam, uInt(-1), nil, 0);
 
    for I := 0 to Count - 1 do
    begin
      SetLength(File, MaxLen);
      J := DragQueryFile(Msg.wParam, vInI, PChar(File), Length(File));
      SetLength(File, J);
 
      ListView.AddItem(File, nil);
    end;
    DragFinish(Msg.wParam);
  end;
 
end;

Ca marche chez moi

A+

[Charette]

Ok je vais essayer je te remercie .

[delphim]

J'ai essayé d'utiliser le programme.

Je sélectionne plusieurs fichiers.

Quand je fais un drag and drop sur ma listview, le programme ne me copie que le chemin et le nom du fichier sélectionné sur ma listview, multiplié par le nombre de fichiers que j'avais sélectionné (en somme j'ai X fois le même nom de fichier).

Comment faire pour que, dans ma listview, j'ai les noms des fichiers que j'ai sélectionné ?

Merci d'avance.

[phplive]

Bonsoir



Jer' a écrit :

J'ai constaté le même comportement. C'est étrange, parce que le fait de faire le DragAccpetFiles avec le Handle de la ListView semble être bien compris, car lorsque tu fait la manip, on voit bien que le changement de curseur de la souris se fait bien au passage sur la ListView, mais la proc DragDrop ne semble pas déclenchée.

Et bien ce comportement me semble parfaitement normal dans la mesure où le message WM_DROPFILES n'est pas géré par la ListView (le fait que la fiche le gère n'y change rien puisque le message est directement envoyé par Windows à la ListView via son handle)

Voici une autre possibilité en dérivant un nouveau composant de TListView :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit ListViewDD;
 
interface
 
uses
  Messages,SysUtils, Classes, Controls, ComCtrls, ShellAPI;
 
type
  TListViewDragFileEvent = procedure(ListView : TListView; FileName : String) of object;
 
  TListViewDD = class(TListView)
  private
    FOnDragFile : TListViewDragFileEvent;
  protected
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
    procedure DropMsg(var msg: TWMDropFiles); message WM_DROPFILES;
  public
  published
    property OnDragFile : TListViewDragFileEvent read FOnDragFile write FOnDragFile;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Demo', [TListViewDD]);
end;
 
procedure TListViewDD.DropMsg(var msg: TWMDropFiles);
var
  i, Count : integer;
  FileName: string;
  Files: array[0..512] of Char;
begin
  Count := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
  for i := 0 to Count - 1 do
  begin
    FileName:= Copy(Files, 0, DragQueryFile(Msg.Drop, i, Files, 512));
    if Assigned(FOnDragFile) then FOnDragFile(Self,FileName);
  end;
  Msg.Result:=0;
  DragFinish(Msg.Drop);
end;
 
procedure TListViewDD.CreateWnd;
begin
  inherited;
  if not (csDesigning in ComponentState) then DragAcceptFiles(Handle,True);
end;
 
procedure TListViewDD.DestroyWnd;
begin
  if not (csDesigning in ComponentState) then DragAcceptFiles(Handle, False);
  inherited;
end;
 
 
end.

J'ai aussi ajouté un nouvel événement OnDragFile qui permet de réagir lorsqu'un ou plusieurs fichiers sont dépossés sur la ListView (insertion dans la liste ou autre ...) ce qui donne de la souplesse.

Le seul point qui me chagrine un peu est de faire appel à Handle dans DestroyWnd (surtout si en interne FHandle = 0 ... )

@+
Php