La meilleure façon d'insérer une page dans un TPageControl si j'ai déjà beaucoup de pages pleines de contrôles? Disons que je veux insérer une nouvelle page avant TabSheet1.Comment 'insérer' une nouvelle page dans un TPageControl
Merci.
MISE À JOUR: Au moment du design.
Vous pouvez essayer cette
procedure TForm13.Button1Click(Sender: TObject);
Var
tabSheet: TTabSheet;
AComponent: TComponent;
aIndex: Integer;
begin
aIndex:=-1;
AComponent := FindComponent('TabSheet1');
if Assigned(AComponent) then
if AComponent is TTabSheet then
aIndex := TTabSheet(AComponent).PageIndex; //get the index of the 'TabSheet1'
tabSheet := TTabSheet.Create(PageControl1);
tabSheet.PageControl := PageControl1;
tabSheet.Caption := 'My TabSheet'+IntToStr(PageControl1.PageCount);
if aIndex>-1 then
tabSheet.PageIndex := aIndex; //Set the index of the new TabSheet
end;
Mise à jour
En DesignTime vous devez définir la propriété PageIndex au PageIndex du TabSheet1.
Salut.
Rightclick sur le PageControl, puis cliquez sur Nouvelle page
Après cela, définissez la propriété PageIndex pour placer la nouvelle page où vous voulez avoir.
Il y a beaucoup de code dans cet exemple. La partie qui répond * à la question * est la dernière ligne, où 'PageIndex' reçoit une nouvelle valeur. –
J'aurais dû dire l'insertion au moment du design. (Peut-être que je devrais éditer ma question?) – volvox
C'est ce que je pensais. OK - merci pour le code de toute façon ce sera utile. – volvox