[nixon232]

Можно ли как-то сделать произвольным класс-наследник от формы? то есть имя класса брать с Edit'a

Код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  Type
  MyRandomClass  = class (TForm1)


  end;
var
  Form1: MyRandomClass;

implementation

{$R *.dfm}

end.

[icWasya]

Озвучте задачу поподробнее

[NumLock]

Можно.....

[nixon232]

Сообщение от icWasya

Озвучте задачу поподробнее

Ну все довольно прозоично. для отладки программы мне нужно чтобы класс моей формы был 'SomeString' (SomeString Хранится скажем в Edit)
Ну и по кнопке создать эту форму с классом 'SomeString'

Код:

form1:= 'SomeString'.Create(Self);
  form1.Show;

То есть весь вопрос, как в рантайме присвоить имя класса?

[Alegun]

Код:

var
  frmclss: TFormClass;
  f: TForm;
begin
  frmclss := TFormClass(FindClass('SomeString'));
  f:= frmclss.Create(Self);
  f.Show;
end;

до этого должна быть выполнена RegisterClass(TSomeString), без предварительной регистрации намного сложнее