Перехват события Oncreate

[Wwormka]

В результате такого кода вылетает ошибка "incompatible types tfr and tform1".

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TFr = class(TForm)
   procedure DoCreate;override;
  end;

var
  Form1: TForm1;
    fcl :TFormClass;
    Fr: TFr;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var Frm: TCustomForm;
begin
 RegisterClass(TForm2);
 fcl:= TFormClass(FindClass('Tform2'));
 fr:=fcl.Create(nil);
 fr.Show;

end;

procedure TFr.DoCreate;
begin
//  inherited;
end;

end.

Необходимо при создании Form2 не выполнять ее событие onCreate. Если в разделе var объявить "var fr: TForm;", то ошибок не будет и форма2 открывается, но onCreate выполняется. Подскажите где я туплю

[HellMercenariess]

Wwormka, у вас одно сообщение на форуме, никто не может знать какой ваш опыт программирования. Модификация существующих компонентов есть не самая простая часть программирования в Дельфи.
Прежде чем создавать или модифицировать существующий компонент я думаю надо иметь уверенность 100% что планируемую задачу невозможно
выполнить на базе существующих, желательно стандартных компонентов.

Модифицированные компоненты и классы лучше хранить в отдельном файле,
желательно 1компонент=1файл.
Если действительно не обойтись без своего класса TForm, я бы разместил его в файле MyForms.pas (добавить в Uses).

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

при создании Form2 не выполнять ее событие onCreate.
Подскажите где я туплю

Событие onCreate, по дефолту там ничего нет, оно появляется когда разработчик хочет например загрузить параметры из iniFile.
Кто заставляет выполнять секцию кода которого нет? оО

[Человек_Борща]

Wwormka, без написания наследника - никуда.

procedure TForm1.btn1Click(Sender: TObject);
var Frm: TCustomForm;
begin
 RegisterClass(TForm2);
 fcl:= TFormClass(FindClass('Tform2'));
 fr:=fcl.Create(nil);
 fr.Show;
end;

Заведомо не рабочий. OnCreate уже отработает к этомому моменту.

[Wwormka]

HellMercenariess с опытом у меня не очень.
onCreate в form2 не пустой, там навеша много много всяких действий.
У меня задача запустить форму на панеле имея в строке ее класс и имя.
То что

 
fcl:= TFormClass(FindClass('Tform2'));
 fr:=fcl.Create(nil);

не рабочий код я понимаю, но как решить задачу так и незнаю

Мастерю нечто дизайнера формы. На Form1 пользователь в списке всех существующих форм выберет интересующую его. Таким образом будут получены текстовые имя и класс формы. Выбранная форма должна открыться на панельке формы 1. При этом ни 1 событие открываемой формы не должно выполнятся дабы не было ошибок.