delphi - TPageControl 内に新しいページを「挿入」する方法

Question

コントロールでいっぱいのページが既にたくさんある場合、TPageControl にページを「挿入」する最良の方法は? TabSheet1 の前に新しいページを挿入したいとしましょう。

ありがとう。

更新: 設計時。

Answer 1

ページコントロールを右クリックし、New Page

その後、PageIndexプロパティを設定して、新しいページを配置する場所に配置します。

Answer 2

これを試すことができます

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;

アップデート

デザインタイムでは、PageIndex プロパティを TabSheet1 の PageIndex に設定する必要があります。

さよなら。