Delphi error creating form ancestor for not found

fossean

2 / 2 / 0

Регистрация: 05.03.2021

Сообщений: 82

Метки нет (Все метки)

Здравствуйте!
Имеется модуль BaseForms, в котором описан класс, наследуемый от TFrame:

1
2
3

TMyFrame = class(TFrame)
...
end;

Далее создаю фрейм отдельно: File -> New -> VCL Frame и наследуюсь от TMyFrame:

1
2
3

TCustomFrame = class(TMyFrame)
...
end;

Далее в dfm файле ‘CustomFrame’ меняю object на inherited:

1
2

inherited CustomFrame: TCustomFrame
end

При закрытии и открытие фрейма выходит ошибка: Error creating form: Ancestor for ‘…’ not found
Чтобы решить эту ошибку создаю dfm файл ‘MyFrame.dfm’ для TMyFrame:

1
2

object MyFrame: TMyFrame
end

Подключаю dfm файл к модулю:

1

{$R MyFrame.dfm}

Но выходит все та же ошибка. Что я делаю не так?

2994 / 2987 / 391

Регистрация: 26.07.2011

Сообщений: 11,456

Записей в блоге: 1

Бред. С какого перепугу ты что-то меняешь в DFM-файле?

2 / 2 / 0

Регистрация: 05.03.2021

Сообщений: 82

DenNik, в таком случае, если оставить object, выходит следующая ошибка при открытии фрейма на визуальное редактирование:

То есть ide воспринимает фрейм как форму.
Я, так понимаю, что создавать базовый фрейм в «чистом» модуле не получится, нужно будет создавать через ide File -> New -> Frame и затем наследоваться File -> New -> Other -> MyFrame.

Verevkin

8388 / 4391 / 1009

Регистрация: 12.03.2015

Сообщений: 20,566

Видимо, так работает визуальное наследование.
Я так тоже делаю. Вот такой коммент я сам себе оставил в модуле фрейма-родителя:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

{ Общий предок фреймов проекта.
  ВНИМАНИЕ! При наследовании от TCommonFrame в DFM-файле нужно РУКАМИ
            заменить object на inherited, иначе будут проблемы при открытии
            фреймов-наследников и форм, на которых они расположены, в дизайнере,
            не смотря на то, что компиляция проходит без ошибок. Я пол-дня
            сношался с этим косяком, пока не прочухал, откуда ноги растут.
            Будьте осторожны.
 
            Verevkin, 29 июл 2020  }
unit ufrCommonFrame;
 
{$R *.dfm}
 
interface
 
{$REGION 'uses'}
uses
  //=========================== Модули проекта общие ===========================
  //======================= Модули проекта специфические =======================
  //==================== Модули проекта с формами и фреймами ===================
  //=============================== Левые модули ===============================
  //=================== Системные модули, добавленные вручную ==================
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
{$ENDREGION}
 
{$REGION 'TCommonFrame = class(TFrame) - общий предок фреймов приложения'}
type
  TCommonFrame = class(TFrame)
  private
    // поля-флаги
    FModified: Boolean;
 
    // поле события
    LOnChange: TNotifyEvent;
  protected
    // обработчики внутренние
    procedure ControlChange(Sender: TObject); virtual; abstract;
 
    // диспетчеризация
    procedure DoChange; dynamic;
 
    // методы внутренние
    procedure Modify(const ACondition: Boolean); dynamic;
  public
    //  методы общие
    procedure ResetToDefaults; dynamic; abstract; // сброс в умолчания
  public
    // свойства общие
    property Modified: Boolean read FModified write FModified;
  published
    // события
    property OnChange: TNotifyEvent read LOnChange write LOnChange;
  end;
{$ENDREGION}
 
implementation
 
{$REGION 'TCommonFrame'}
{ TCommonFrame }
 
procedure TCommonFrame.DoChange;
begin
  FModified:= true;
  if Assigned(LOnChange)
    then LOnChange(Self);
end;
 
procedure TCommonFrame.Modify(const ACondition: Boolean);
begin
  FModified:= FModified or ACondition;
end;
 
{$ENDREGION}
 
end.

Вложения

src_frames.zip (8.9 Кб, 6 просмотров)

8254 / 5477 / 2248

Регистрация: 21.01.2014

Сообщений: 23,578

Записей в блоге: 3

читаю-читаю и никак не пойму: зачем, для каких целей Вы чего-то там наследуете?
Создали в дизайнере свой фрейм — получили готовый класс со своими свойствами и методами. Теперь в нужном месте просто создаете экземпляр этого класса и все…

8388 / 4391 / 1009

Регистрация: 12.03.2015

Сообщений: 20,566

я прицепил там куски исходников, загляни

2 / 2 / 0

Регистрация: 05.03.2021

Сообщений: 82

Чтобы избавиться от дублирования полей и методов

5442 / 4266 / 1375

Регистрация: 14.04.2014

Сообщений: 19,204

Записей в блоге: 19

fossean

2 / 2 / 0

Регистрация: 05.03.2021

Сообщений: 82

Всем спасибо за помощь, нашел решение моей проблемы. Изначально моя цель была создать модуль с описанием классов, наследуемых от TFrame, без dfm файла. Но так как если наследоваться в модуле с визуальным фреймом, он начинает думать что эта форма и выводит ошибку c TabOrder`ом. Чтобы всё заработало, нужно переназначить класс TFrame:

1
2
3
4
5

TFrame = class(TMyFrame);
 
TCustomFrame = class(TMyFrame)
...
end;

Тогда визуальная форма открывается нормально, без каких-либо ошибок.

Добавлено через 8 минут
Немного поторпился, вот правильный вариант:

1
2
3
4
5

TFrame = class(TMyFrame);
 
TCustomFrame = class(TFrame)
...
end;

Не по теме:

обычно такие хакерские решения потом отличаются большими проблемами в поддержке
никто не понимает, почему это вчера было а сегодня нет
и становится важным все вплоть до порядка модулей в uses

2 / 2 / 0

Регистрация: 05.03.2021

Сообщений: 82

Не по теме:

недавно целая дискуссия была, сейчас вряд ли найду уже
вроде mORMot сто лет использовали какой-то хак, а в новой делфи что-то поменялось, и это все накрылось тазом, и они встали перед необходимостью тупо переписать ВСЕ. потому что архитектура же…
а так — конечно ради бога. но если есть метод сделать «по красоте» или ловко извернуться, то лучше всегда по красоте))