Discussion :

[yamino]

Bonjour à tous,

Je cherche à faire un Drag & Drop avec un TTabControl.

J'ai trouvé ceci qui fonction avec un TPageControl :
http://www.developpez.com/delphi/faq...letpagecontrol

Malheureusement ça ne fonctionne pas avec un TTabControl...

[yamino]

Personne ?

[Linkin]

Pour la première solution de la FAQ, la modification est assez simple:

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
 
procedure TForm1.TabControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  {L'onglet déposé, celui qui est actif (ActivePage), prend comme valeur
   d'index (PageIndex) celui de l'onglet visé par la souris
   (utilisation de GetDroppedIndex)}
 
// Pour echanger les éléments cible et source
//TTabControl(Sender).Tabs.Exchange(TTabControl(Sender).TabIndex,GetDroppedIndex(X,Y));
// Pour insérer l'élément source
TTabControl(Sender).Tabs.Move(TTabControl(Sender).TabIndex,GetDroppedIndex(X,Y));
 
  {Fin du glissé-déposé --> passage de True en paramètre}
  TTabControl(Sender).EndDrag(True);

[yamino]

Super Linkin ça fonctionne... Merci pour ton aide...