Советы по Delphi

         

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


Как насчет этого? (допустим что 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.

- Mike Orriss (да, я сделал это сам <g>) [000816]



Содержание раздела