Советы по Delphi
Создание формы переменного типа
Как насчет этого? (допустим что str содержит 'TForm2' и т.п.)?
| procedure TForm1.Button1Click(Sender: TObject);beginwith TFormClass(FindClass(str)).Create(Application) do tryShowModal;finallyFree;end;end; initializationRegisterClasses([TForm2,TForm3,TForm4]);end. |
- Mike Orriss (да, я сделал это сам <g>) [000816]
