|
|
|
|
Одной строкой
Создание формы переменного типа
Как насчет этого? (допустим что 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]
|
|
|
|
|