[DELPHI] ShellListView ?

ShellListView ? [DELPHI] - Delphi/Pascal - Programmation

Marsh Posté le 12-06-2005 à 22:44:07    

Bonjour à tous,
 
voilà j'ai deux soucis ave ce composant de Delphi :  
 
1 - Comment récupère-t-on la liste des fichiers sélectionnés.
2 - Comment faire un drag and drop (des fichiers selectionnés) dans une listbox, par exemple.
 
Merci
 
PS : j'ai cherché sous google, mais apparemment j'ai rien trouvé de très clair. De plus ce scomposants ne sont pas renseigné dans l'aide de Delphi.

Reply

Marsh Posté le 12-06-2005 à 22:44:07   

Reply

Marsh Posté le 17-06-2005 à 12:43:01    

Code :
  1. // on doit programmer l'événement OnDragOver du composant de destination
  2. // pour dire si l'on accepte le laché. (=déclenche le drop)
  3. procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  4.   State: TDragState; var Accept: Boolean);
  5. begin
  6.     accept := (Source = Self.ShellListView1);
  7. end;
  10. // on doit programmer l'action effectuée lors du drop
  11. procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
  12. begin
  13.     //Self.ListBox1.AddItem(Self.ShellListView1.Selected.Caption, nil);
  14.     if Self.ShellListView1.Selected <> nil then
  15.      if not Self.ShellListView1.SelectedFolder.IsFolder then
  16.      Self.ListBox1.AddItem(Self.ShellListView1.SelectedFolder.PathName, nil);
  17. end;

Reply

Marsh Posté le 21-06-2005 à 13:31:41    

merci bp.
 
désolé de ne pas avoir répondu plutôt j'était parti en week-end (oui, oui, un weekend de 5 jours !)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed