Shelllistview

Signaler
Messages postés
127
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
-
Messages postés
127
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009
-
Bonjour ;


J’ai un problème avec Shelllistview en Drag and Drop


Précisément en l’événement endDrag


procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>



  Y: Integer);



 





Begin



     //Target : est ce que la cible à l’on copier le fichier glissé


end;


Merci !!!!!!!!







oO SiMo Oo oO BeauTiFul MinD Oo

6 réponses

Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
"est ce que la cible à l'on copier le fichier glissé" : ca veut dire quoi?

c'est a toi de gerer toutes les actions. les evenements sont la pour te prevenir quand et dans quelles conditions effectuer tes traitements
Messages postés
127
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009

Exactement Guillemouze, ce que je veut savoir c’est a quoi se sert Target ?


Est ce que tu me donnes un exemple pour 2 procédures :


L’un pour Drag et l’autre pour le Drop concernant l’objet Shelllistview


Merci !!!!!!!!!!!







oO SiMo Oo oO BeauTiFul MinD Oo
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
voila un petit exemple (tu peux telecharger la source complete ici) :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ShellCtrls;

type
  TForm1 = class(TForm)
    ShellListView1: TShellListView;
    Panel1: TPanel;
    procedure ShellListView1EndDrag(Sender, Target: TObject; X,
      Y: Integer);
    procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
begin
  if Target = Panel1 then
    showmessage('shelleListView a recu OnDragEnd avec Target=panel1');
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin  Accept :Source ShellListView1;
end;

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  showmessage('Panel1 a recu OnDragDrop');
end;

end.
Messages postés
127
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009

bonjour;
procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
begin
  if Target = Panel1 then
    showmessage('shelleListView a recu OnDragEnd avec Target=panel1');//affichage de message c'est rien
end;
Ca veut dire quoi ? Je ne comprends pas

Je veux l’implémentation de cette procédure

Merci!!!!

oO SiMo Oo oO BeauTiFul MinD Oo
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
deja, on dit pas "je veux".

as tu essayé de telecharger le projet complet que je t'ai mis en lien?

et c'est bien l'implementation que tu as mis dans ton message !!!
Messages postés
127
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
24 mars 2009

Je ne peux pas y télécharger la source


Tu peut me envoi sur mon email [mailto:seddiki.v1@gmail.com seddiki.v1@gmail.com]


Merci bcp Guillemouze !!!!!!!







oO SiMo Oo oO BeauTiFul MinD Oo