DEPLACER LES ITEMS D'UNE LISTBOX VERS UNE AUTRE PAR DRAG AND DROP

Commentaire de japee le 30/12/2007 22:35:46 administrateur CS

@Florenth
S'il y avait tout dans la VCL, qu'est-ce qu'on s'ennuierait... ^^
Et puis ça permet de créer des librairies perso bien plus performantes que celles fournies par Borland (je déconne).

C'est vrai, j'ai négligé les objets, mais ce n'était pas mon propos au départ. Je vais néanmoins réfléchir à ta suggestion.
Pareil pour une procedure : j'ai voulu rester concret et simple, en pensant plus particulièrement aux débutants (le drag & drop n'a plus de secrets pour les autres).
C'est vrai qu'on pourrait penser la réalisation plus complexe par rapport à l'objectif fixé.

@Caribensila
Ce qui est moderne aujourd'hui sera désuet demain. J'ai décidé que Delphi 4 Entreprise était la version la plus aboutie jamais sortie par Borland/CodeGear... à moins que quelqu'un ne m'offre une version plus récente, auquel cas j'assouplirai peut-être mon point de vue. ^^
Sérieusement, je vérifie toujours la compatibilité avec les versions ultérieures, il n'y a jamais de problème, ce n'est hélas pas toujours le cas dans l'autre sens.

Commentaire de Delphiprog le 08/01/2008 23:23:33 administrateur CS

Code sympa et toujours bien expliqué, c'est du Made in Japee !

Comme il me semblait bien avoir déjà publié un code de même nature (http://www.delphifr.com/codes/DRAG-DROP-ENTRE-CONTROLES-MEME-NATURE_12296.aspx) en janvier 2003, je propose les quelques modifications suivantes :

1/ Eviter de comparer des chaines telles que le nom des composants mais plutôt leur référence. Le code produit est bien plus rapide :
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TListBox) and
  (cbAutoDD.Checked or (Source <> Sender));
end;

2/ Pour la gestion des objets liés aux chaines visibles dans le contrôle, l'emploi de AddObject et de InsertObject s'impose :
{Gestionnaire partagé, noter le pluriel}
procedure TForm1.ListBoxesDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i: Integer;
  CursorPos: TPoint;
  Index: Integer;
  List: TStringList;
begin
  List := TStringList.Create;
  try
    with TListBox(Source) do
    begin
      { récupération des items sélectionnés dans l'ordre croissant }
      for i := 0 to Items.Count - 1 do
        if Selected[i] then
          List.AddObject(Items[i], Items.Objects[i]);
      { suppression des items sélectionnés }
      DeleteSelected; {<<< allège sérieusement le code !}
    end;
    CursorPos := Point(X, Y); { position du curseur }
    with TListBox(Sender) do { ListBox destinataire }
    begin
      { index de l'item désigné par le curseur }
      Index := ItemAtPos(CursorPos, True);
      for i := List.Count - 1 downto 0 do
        if Index > -1 then { ListBox non vide, permet l'insertion }
          Items.InsertObject(Index, List[i], List.Objects[i])
        else { ListBox vide, insertion impossible }
          Items.AddObject(List[List.Count - 1 - i], List.Objects[List.Count - 1 - i]);
    end;
  finally
    List.Free;
  end;
end;

Pour tester et vérifier, j'ai créé une classe basique :
  //Déclaration d'une classe pour tester
  TIntObject = class
  private
    FInt: integer;
  public
    constructor Create(AInt: integer);
    property Int: integer read FInt;
  end;
{ TIntObject }

constructor TIntObject.Create(AInt: integer);
begin
  inherited Create;
  FInt := AInt;
end;

et ajouté un label sur la fiche qui doit indiquer la valeur stockée dans la ligne sur laquelle on a clické :
procedure TForm1.ListBoxesClick(Sender: TObject);
var
  index: integer;
begin
  //Gestionnaire partagé par les TListBox
  index := TListBox(Sender).ItemIndex;
  if (index <> -1) and (TListBox(Sender).Items.Objects[index] <> nil) then
    ValueSelected.Caption :=
      IntToStr(TIntObject(TListBox(Sender).Items.Objects[index]).Int)
  else
    ValueSelected.Caption := 'Nul';
end;

Bien entendu, il faudra aménager la procédure InitializeMemo :
Mem1.AddObject(Format('ListBox1.Items[%d]', [i]), TIntObject.Create(i));
    Mem2.AddObject(Format('ListBox2.Items[%d]', [i]), TIntObject.Create(i));

Joyeuses Pâques. Ben quoi ? J'ai raté le joyeux Noel, alors je me mets en avance au cas où...;o)

Commentaire de amiga68 le 14/01/2008 06:20:26

:) Japee

Merci pour le code !!! Me servira çui-là !

Ps Evite de mettre des phrases telles que "Ça marche très bien avec des objets, mais également si l'on ne manipule que des strings.", si mon épouse passe j'aurai l'aire con à lui expliquer que c'est de la programmation !