скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Создание формы переменного типа



Автор: Mike Orriss

Как насчет этого? (допустим что str содержит 'TForm2' и т.п.)?


procedure TForm1.Button1Click(Sender: TObject);
begin
  with TFormClass(FindClass(str)).Create(Application) do 
    try
      ShowModal;
    finally
      Free;
    end;
end;

initialization
  RegisterClasses([TForm2,TForm3,TForm4]);
end.






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook