Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2009, 16:30   #1
Mutagena
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 39
Вопрос Подскажите, как сгенерировать N компонентов в рантайме

Передо мной встала проблема. Необходимо сгенерировать N компонентов в рантайме.
Вот код, генерующий один компонент:
Код:
procedure TMain.Button1Click(Sender: TObject);
var
  x: TEdit; // объявляем переменную типа TEdit
begin
  x:=TEdit.create(self);// создаем экземпляр компонента
  x.parent:=Main;// текстовое поле появится на форме
  x.left:=10;
  x.top:=100;
  x.Width:=250;
  x.Text:='Delphi World is (:-0) !!!';
end;
А как мне сгенерировать N таких компонентов с предсказуемыми именами.
Пожалуйста, подскажите.
Mutagena вне форума Ответить с цитированием
Старый 22.12.2009, 16:48   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

заведи динамический массив:
Код:
var masedit: array of tedit;
begin
 setlength(masedit, 100); //задаем
 for i:= low(masedit) to high(masedit) do begin
  masedit[i]:= tedit.create(nil);

  with masedit[i] do begin
  //cвойства-
  ...
  tag:= i;
  //onchange:= set;
  //
  parent:= self;
 end
 end
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 22.12.2009, 17:09   #3
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Только всё же лучше Create(Self), а не nil.
Somebody вне форума Ответить с цитированием
Старый 22.12.2009, 19:40   #4
Mutagena
Пользователь
 
Регистрация: 06.10.2009
Сообщений: 39
По умолчанию

Спасибо
Mutagena вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Генерация компонентов в рантайме Mutagena Помощь студентам 8 29.11.2009 22:47
как сгенерировать 25 -значный ключ с привязкой по ip? PROjunior Свободное общение 5 03.11.2009 18:56
Как сгенерировать число от -1 до 36 vadmaruschak Помощь студентам 1 08.10.2009 23:26