Содержание материала

В данном документе показана технология динамического добавления страниц компонента PageControl (объектов TTabSheet) к элементу управления Windows 95/NT PageControl (объект TPageControl). Оба этих объекта объявлены в модуле ComCtrls. Поэтому убедитесь в том, что ComCtrls указан в списке используемых модулей.

Code:

var

T: TTabSheet;

P: TPageControl;

begin

// Создаем PageControl

// При создании получаем ссылку на PageControl, чтобы в дальнейшем на него ссылаться.

P := TPageControl.Create(application);

with P do

begin

   Parent := Form1; // устанавливаем его как элемент управления формы.

   Top := 30;

   Left := 30;

   Width := 200;

   Height := 150;

end; // with TPageControl

 

// Создаем 3 страницы

T := TTabSheet.Create(P);

with T do

begin

   Visible := True;

     // Это необходимо, или форма не будет корректно перерисовываться

   Caption := 'Страница 1';

   PageControl := P; // Назначаем Tab в Page Control

end; // with

 

T := TTabSheet.Create(P);

with T do

begin

   Visible := True;

     // Это необходимо, или форма не будет корректно перерисовываться

   Caption := 'Страница 2';

   PageControl := P; // Назначаем Tab в Page Control

end; // with

 

T := TTabSheet.Create(P);

with T do

begin

   Visible := True;

     // Это необходимо, или форма не будет корректно перерисовываться

   Caption := 'Страница 3';

   PageControl := P; // Назначаем Tab в Page Control

end; // with

 

// Создаем 3 кнопки, 1 на страницу

with tbutton.create(application) do

begin

   Parent := P.Pages[0]; // "Указываем" кнопке родительскую страницу

   Caption := 'Привет, страница 1';

   Left := 0;

   Top := 0;

end; // with

 

with tbutton.create(application) do

begin

   Parent := P.Pages[1]; // "Указываем" кнопке родительскую страницу

   Caption := 'Привет, страница 2';

   Left := 50;

   Top := 50;

end; // with

 

with tbutton.create(application) do

begin

   Parent := P.Pages[2]; // "Указываем" кнопке родительскую страницу

   Caption := 'Привет, страница 3';

   Left := 100;

   Top := 90;

end; // with

 

// Это должно быть сделано, или Tab первоначально не синхронизируется

// с правильной страницей. Только в случае, если у вас более чем одна страница.

P.ActivePage := P.Pages[1];

P.ActivePage := P.Pages[0]; // Реально показываемая страница

end;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить