ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Динамичное создание tabsheet
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Динамичное создание tabsheet
  #1  
Старый 15.01.2010, 01:39
SultanOFF
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
Провел на форуме:
840493

Репутация: 0
Angry Динамичное создание tabsheet
Здравствуйте. Как можно динамично создавать страницы(tabsheet) не зная заранее сколько их будет?
если бы заранее было известно сколько нужно создавать страниц делал бы так:
Код:
var
TabSheet : TTabSheet;
TabSheet := TTabSheet.Create(Self);
TabSheet.PageControl := PageControl;
но вот как создавать допустим если нужно сделать 5 страниц? Не могу же Я просто продублировать этот текст 5 раз с разными названиями переменных. Помогите пожалуйста
 
Ответить с цитированием

  #2  
Старый 15.01.2010, 07:38
W!z@rD
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597

Репутация: 836


Отправить сообщение для W!z@rD с помощью ICQ
По умолчанию
for .. to .. do

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

  #3  
Старый 15.01.2010, 17:49
Chrome~
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641

Репутация: 175
Отправить сообщение для Chrome~ с помощью ICQ
По умолчанию
Код для создания 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;
 
Ответить с цитированием

  #4  
Старый 15.01.2010, 20:28
SultanOFF
Участник форума
Регистрация: 04.06.2009
Сообщений: 176
Провел на форуме:
840493

Репутация: 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 О Работе 6 13.04.2010 14:19
Создание, раскрутка, наполнение групп Вконтакте ldirkl Покупка, продажа, услуги в Соц. Сетях 1 28.11.2009 16:47
Список услуг по низким ценам (графика, создание сайтов, контент и т.д. ) VaTTka О Работе 7 21.05.2009 20:09
Создание виртуальных файловых систем в Linux _GaLs_ *nix 0 20.11.2006 20:05



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ