VPF::Динамическое создание компонента но его имени

kali

Дата 4.10.2008, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 9.11.2006
Где: Минск

Репутация: нет
Всего: 20

Существует список компонентов в тхт-файле:

TButton
TEdit
TCombobox
...

Необходимо создать их на форме.

один из вариантов:

Код


var 
  ClassRef:TControlClass;
  s:string;
  NewCntrl:TControl;
begin
  //читаем имя компонента в s
  //...
  if s='TButton' then ClassRef:=TButton;
  if s='TEdit' then ClassRef:=TEdit;
  // и.т.д.

  NewCntrl:=ClassRef.Create(self);
  //...
end;

Есть ли возможность обойтись без кучи операторов if?

--------------------

Работая над решением задачи, всегда полезно знать ответ.

Alexeis

Дата 4.10.2008, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  obj1 : TControl;
begin
  RegisterClass(TButton);
  RegisterClass(TLabel);
  obj1 := TControlClass(GetClass('TButton')).Create(self);
  obj1.Parent := self;
end;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

kali

Дата 4.10.2008, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 9.11.2006
Где: Минск

Репутация: нет
Всего: 20

Работа по утрам в субботу, дает о себе знать. smile

Спасибо.

--------------------

Работая над решением задачи, всегда полезно знать ответ.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »