Discussion :

[Benjamin GAGNEUX]

Salut,

Dans le cadre d'un développement, je souhaiterais ajouter la possibilité de déplacer un onglet (TTabSheet) par Drag'n'Drop dans mon PageControl ou en d'autres termes, changer la position de l'onglet avec la souris (un peu comme dans FireFox).

Cependant, je n'arrive pas à utiliser correctement le Drag'n'Drop sur ce composant (la méthode semble différente des autres composants) et cette fonctionnalité ne semble pas être implémenté...

Pensez-vous que c'est réalisable sans pour autant construire une usine à gaz ?
Auriez-vous une idée sur la manière de réaliser cela ?

Merci d'avance

[Cpt Anderson]

Puis-je te suggerer de mettre 2 boutons à droite avec des flèches <- ->

Dessus tu fais un truc style

PageControl1.ActivePage.PageIndex := PageControl1.ActivePage.PageIndex -1 ;
PageControl1.ActivePage.PageIndex := PageControl1.ActivePage.PageIndex+1 ;

Attention aux exceptions.

Sinon pour le Drag & Drop...bonne chance

[Benjamin GAGNEUX]

J'y avais songé mais ces boutons existe déjà pour faire défiler les onglets lorsque ceux-ci sont trop nombreux pour tenir dans la largeur du TPageControl

J'ai peur que l'ajout de boutons supplémentaires porte à confusion pour l'utilisateur.

merci

[Cl@udius]

Bonjour Yobenzen,

Voici une solution qui pourrait te convenir:

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
 
uses ..., CommCtrl;
 
implementation
{$R *.dfm}
// La propriété DragMode du TPageControl est à dmManual
procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    TPageControl(Sender).BeginDrag(False);
end;
procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TPageControl;
end;
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  TPageControl(Sender).ActivePage.PageIndex := GetDroppedIndex(X, Y);
  TPageControl(Sender).EndDrag(True);
end;
function TForm1.GetDroppedIndex(X, Y: Integer): Integer;
var
  HitTestInfo: TTCHitTestInfo;
begin
  HitTestInfo.pt := Point(X,Y);
  result := SendMessage(PageControl1.Handle, TCM_HITTEST, 0, Longint(@HitTestInfo));
end;
end.

Teste ce code et tiens nous au courant.
@+ Claudius

[Cpt Anderson]

Excellent !

[Benjamin GAGNEUX]

Excellent !

+1
chapeau !

Ca marche impeccable (beaucoup mieux que le bricolage que j'avais fais).

merci

on pourrait rajouter cela à la FAQ je pense

[LadyWasky]

Salut

Tu peux faire comme ceci par exemple :

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
62
procedure DoTabDragDrop(Sender, Source: TPageControl; X,
  Y: Integer);
const TCM_GETITEMRECT = $130A;
var TabRect: TRect;
    i: Integer;
    SourceIndex,TargetIndex:Integer;
    ATabSheet:TTabSheet;
begin
   if Sender=Source
   then begin
           for i := 0 to Sender.PageCount - 1 do
           begin
             Sender.Perform(TCM_GETITEMRECT, i, LParam(@TabRect)) ;
             if PtInRect(TabRect, Point(X, Y)) then
             begin
               if Sender.ActivePage.PageIndex <> i then
                 Sender.ActivePage.PageIndex := i;
               Exit;
             end;
           end;
        end
   else begin
           SourceIndex:=Source.ActivePage.PageIndex;
           TargetIndex:=-1;
           i:=0;
           while ((i<Sender.PageCount) and  (TargetIndex=-1)) do
           begin
             Sender.Perform(TCM_GETITEMRECT, i, LParam(@TabRect)) ;
             if PtInRect(TabRect, Point(X, Y))
             then begin
                    TargetIndex:=i;
                    if x>((TabRect.Left+TabRect.Right) div 2) then Inc(TargetIndex);
                  end;
             Inc(i);
           end;
 
             ATabSheet:=Source.Pages[SourceIndex];
             ATabSheet.PageControl:=Sender;
             if TargetIndex<>-1 then ATabSheet.PageIndex:=TargetIndex;
        end;
end;
 
procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Sender is TPageControl)
  then (Sender as TPageControl).BeginDrag(False);
end;
 
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
   if (Sender is TPageControl) and (Source is TPageControl) then 
   //utilisation de notre procedure magique
   DoTabDragDrop((Sender as TPageControl), (Source as TPageControl),X,Y);
end;
 
procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
   if (Sender is TPageControl) then Accept := True;
end;

Ca marche même entre plusieurs TPageControl
Tout ce que tu as à faire c'est d'implémenter les évènements de ton ou tes PageContrl tel que je l'ai fait ici, avec le même code.

Bon dev

[Benjamin GAGNEUX]

Excellent !

Faudrait mettre tout cela dans la FAQ Delphi