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

Как насчет этого? (допустим что 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.
 
« Предыдущая статья   Следующая статья »