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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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.

{/codecitation}

Добавить комментарий