[SOLVED] Erm ... TPageControl ... how do you swap pages?

[EganSolo]

This should be easy ... but since the Page[] and Pages[] properties are read-only, how do you swap two pages? I want to allow the user to move a page left, right etc.

[Awkward]

try to use PageIndex and ActivePageIndex properties

[mtrsoft]

Try using the TExtendedNotebook control (on the LazControls Tab).
This is a TPageControl decscendant that enables dragging of the pagecontrols tabs.

[EganSolo]

Awkward: Thanks for the suggestion! It turns out that the PageIndex property on the TabSheet works. It's important to note that it works like a move and not like a swap:

Code: Pascal  [Select][+][-]

1. //This code will NOT work. Swapping the indices returns you to the starting configuration.
2. Procedure TMyClass.SwapPages(const Index1, Index2: Integer);
3. var anIndex : integer;
4. begin
5.     with PageControl do
6.     begin
7.        anIndex := Pages[Index1].PageIndex;
8.        Pages[Index1].PageIndex := Pages[Index2].PageIndex;
9.        Pages[Index2].PageIndex := anIndex;
10.    end;
11. end;
12.  

This is the correct code:

Code: Pascal  [Select][+][-]

1. //This code works.
2. Procedure TMyClass.SwapPages(const Index1, Index2: Integer);
3. var anIndex : integer;
4. begin
5.     with PageControl do
6.     begin
7.        anIndex := Pages[Index1].PageIndex;
8.        //Pages[Index1].PageIndex := Pages[Index2].PageIndex;
9.        Pages[Index2].PageIndex := anIndex;
10.    end;
11. end;
12.  

mtrSoft: Thanks for the suggestion. I switched the PageControl to the ExtendedNoteBook without a problem. If someone else wants to rely on this feature, don't forget to set TabDragMode and TabDragAcceptMode to dmAutomatic for the drag and drop to be initiated via the mouse.

Thanks, guys! That was great.