Как «вставить» новую страницу в TPageControl - PullRequest
Новая
       13

Как «вставить» новую страницу в TPageControl

0 голосов
/ 12 октября 2009

Лучший способ «вставить» страницу в TPageControl, если у меня уже есть много страниц, полных элементов управления? Допустим, я хочу вставить новую страницу перед TabSheet1.

Спасибо.

ОБНОВЛЕНИЕ: во время разработки.

Ответы [ 2 ]

13 голосов
/ 12 октября 2009

Щелкните правой кнопкой мыши на странице управления и нажмите Новая страница

После этого установите свойство PageIndex, чтобы разместить новую страницу там, где вы хотите ее разместить.

9 голосов
/ 12 октября 2009

Вы можете попробовать это 

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;

Обновление

В Designtime необходимо установить для свойства PageIndex значение PageIndex для TabSheet1.

Bye.

...