Советы по 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]
