Создание модуля

[Deight]

Mutabor, я перечитал всю статью немого нового узнал но эта статья мне не помогла, как решить проблему я так и не знаю.

[mutabor]

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

Mutabor, я перечитал всю статью немого нового узнал но эта статья мне не помогла, как решить проблему я так и не знаю.

Я так не могу навскидку сказать, нужно код написать и отладить потом. А что именно ты хчешь сделать, я честно говоря не совсем понял. Почему бы просто не добавить нужные события к стандартному классу формы?

[Deight]

Какой код? Первый пост. 1 это модуль 2 это обработка нажатия кнопки. Тот код что в первом посте тоже не работает. Хотя td8form на основе tform описывал так же как и tform описывается на основе tcustomform я ни чего не могу понять. Сделать это я хочу новый тип форм в модуле чтоб в компонентах в рун-тайме создавать эти формы было проще. И вообще так для своего развития.

[Deight]

Может по мимо файла d8form.Pas в lib нужно еще какие файлы создавать?

[mutabor]

Насчет модулей я уже говорил, это условности, хоть в один все запихни, хоть в десять, разницы никакой нет. Никаких других файлов не нужно.

Свои формы никогда не делал, компоненты делал, мне их функционала с головой хватает, а форма для меня обычно это только контейнер, и возможностей Дельфи по добавлению форм мне хватает. С формой не так все просто, может на компонентах потренироваться сначала? Раз уж это для своего развития и необходимости как таковой в этом нет.

[Deight]

А что тут тренироваться, если вместо tform написать tcustompanel, то все норм, а форма что ей нужно?

[alexBlack]

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

А что тут тренироваться, если вместо tform написать tcustompanel, то все норм, а форма что ей нужно?

ааа, ладно. Еще раз (см.пост#9)
Смотрите, что ей нужно:

constructor TCustomForm.Create(AOwner: TComponent);
begin
  GlobalNameSpace.BeginWrite;
  try
    CreateNew(AOwner);
    if (ClassType <> TForm) and not (csDesigning in ComponentState) then
    begin
      Include(FFormState, fsCreating);
      try
        if not InitInheritedComponent(Self, TForm) then
          raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      finally
        Exclude(FFormState, fsCreating);
      end;
      if OldCreateOrder then DoCreate;
    end;
  finally
    GlobalNameSpace.EndWrite;
  end;
end;

Из справки:

Use CreateNew instead of Create to create a form without using the associated .DFM file to initialize it.

Пример я приводил. На крайний случай перекройте .Create.

// Хоть как-то реагируйте на сообщения. А то не понятно - то ли Вы не прочитали, то ли я не в тему

[Deight]

#17 alexBlack, "Undeclared identifier: 'SResNotFound'" пишет при попытки компилировать.

[Deight]

Всё проблема решена

constructor TD8Form.Create(AOwner: TComponent);
begin
inherited CreateNew(AOwner);
end;

.Всем спосибо.

[s.Creator]

Deight, посмотри может поможет разобраться.
FormsCreate.zip
Незабуть посмотреть Project1.dpr.
класс TD8Form (без dfm) использовать непосредственно врядли сможешь,
обычно их используют как базовые для добавления функционала -
Смотри

TD8Childr = class(TD8Form)