Delphi/Lazarus: Modifier l’Ordre des TabSheets sur PageControl au Moment de l’Exécution

Question: Nous avons un TPageControl, sur lequel sont positionnés des TabSheets. Au début du programme, ces onglets ont une disposition spécifique et nous aimerions modifier cette disposition respectivement l'ordre des onglets pendant l'exécution de notre programme.

Solution: Via la propriété PageIndex, il est possible de déterminer et de définir la position de chaque TabSheet sur un PageControl.

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

Dans l'exemple, l'ordre des TabSheets "TabSheet0" à "TabSheet3" est inversé, de sorte qu'auparavant, "TabSheet0" se trouve en première position et après avoir exécuté ce code, "TabSheet3" est en première position tandis que "TabSheet0" est à la dernière position sur le PageControl.