Delphi/Lazarus: Reihenfolge der TabSheets auf PageControl zur Laufzeit ändern

Fragestellung: Wir haben ein TPageControl, auf denen sich einige TabSheets befinden. Diese haben zur Startzeit des Programms eine bestimmte Anordnung und wir möchten diese Anordnung beziehungsweise die Reihenfolge der Tabs zur Laufzeit des Programms anpassen und ändern.

Lösung: Über die Eigenschaft PageIndex lässt sich die Position jedes TabSheets auf dem PageControl bestimmen und setzen.

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet3.PageIndex:=0;
  TabSheet2.PageIndex:=1;
  TabSheet1.PageIndex:=2;
  TabSheet0.PageIndex:=3;
end; 

Im Beispiel wird die Reihenfolge der TabSheets "TabSheet0" bis "TabSheet3" umgedreht, so dass vorher "TabSheet0" an erster Position steht und sich nach der Ausführung dieses Codes  "TabSheet3" an der ersten Position und "TabSheet0" an der letzten Position auf dem PageControl befindet.