Динамичное создание tabsheet

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Динамичное создание tabsheet

Опции темы

Поиск в этой теме

Опции просмотра

Динамичное создание tabsheet

15.01.2010, 01:39

SultanOFF

Участник форума

Регистрация: 04.06.2009

Сообщений: 176

С нами: 8913664

Репутация: 0

Динамичное создание tabsheet

Здравствуйте. Как можно динамично создавать страницы(tabsheet) не зная заранее сколько их будет?
если бы заранее было известно сколько нужно создавать страниц делал бы так:

Код:

var
TabSheet : TTabSheet;
TabSheet := TTabSheet.Create(Self);
TabSheet.PageControl := PageControl;

но вот как создавать допустим если нужно сделать 5 страниц? Не могу же Я просто продублировать этот текст 5 раз с разными названиями переменных. Помогите пожалуйста

𝕏 Twitter Reddit Telegram Копировать ссылку

15.01.2010, 07:38

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

for .. to .. do

там ты просто будешь по-новой создавать объект.

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

15.01.2010, 17:49

Chrome~

Постоянный

Регистрация: 13.12.2008

Сообщений: 354

С нами: 9162683

Репутация: 175

Код для создания 5-и TabSheets:

Код:

var
  TabSheet: array[1..5] of TTabSheet;
  i: integer;
begin
  for i := 1 to 5 do
  begin
    TabSheet[i] := TTabSheet.Create(Self);
    TabSheet[i].PageControl := PageControl;
  end;
end;

15.01.2010, 20:28

SultanOFF

Участник форума

Регистрация: 04.06.2009

Сообщений: 176

С нами: 8913664

Репутация: 0

Решил делать таким способом

Код:

var
TabSheet : TTabSheet;
i, TabIndex: integer;
begin
 TabIndex := 0;
 for i:=0 to 1000 begin
  TabSheet := nil;
  TabSheet := TTabSheet.Create(Self);
  TabSheet.Name := 'TabSheet' + IntToStr(TabIndex); // TabIndex - счётчик табов
  TabSheet.Caption := 'TabSheet' + IntToStr(TabIndex);
  TabSheet.PageControl := PageControl; 
  Inc(TabIndex);
 end;
end;

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание сайтов	BenZeR	Freelance - О Работе	6	13.04.2010 14:19
Создание, раскрутка, наполнение групп Вконтакте	ldirkl	Покупка, продажа, услуги в Соц. Сетях	1	28.11.2009 16:47
Список услуг по низким ценам (графика, создание сайтов, контент и т.д. )	VaTTka	Freelance - О Работе	7	21.05.2009 20:09