Показать сообщение отдельно
  #1  
Старый 30.01.2008, 12:59
GrosseIgor GrosseIgor вне форума
Прохожий
 
Регистрация: 30.01.2008
Сообщения: 1
Репутация: 10
По умолчанию Серьезная тема и Серьезные задачи

Вообщем задача такая у меня есть главная форма formStyle=fsMDIForm
ну и куча дочерних форм Formstyle=fsMDIChild....
есть на форме типо дерево проводника в котором из базы вытягиваются все названия форм MDIChild...вопрос как мне для конкретного наименования подставить нужный код создания формы
например в дереве есть узел c названием fAdmin значимт по его клику необходимо написать fAdmin:=TFadmin.Create(Application)
но форм очень много и я не хочу для каждой писать условия типа
if treenode.caption='fAdmin'
then
fAdmin:=TfAdmin.Create(application)
if treenode.caption='fConductor'
then
fConductor:=TfConductor.create(application)
и т.д.
Ответить с цитированием