Фреймы в Delphi - интересная штука, которая может создать проблемы "на ровном месте".
Вам случалось получать подобное сообщение об ошибке при создании потомка класса TFrame?
--------------------------- Error Reading Form --------------------------- Error reading TDioptreFrame.ClientHeight: Property ClientHeight does not exist. Ignore the error and continue? NOTE: Ignoring the error may cause components to be deleted or property values to be lost. --------------------------- Ignore Cancel Ignore All ---------------------------
И что странно: потомки TFrame не имеют свойства ClientHeight.
Если вы нажмете Cancel, то получите следующее сообщение об ошибке:
--------------------------- Error --------------------------- Error creating form: Error reading TDioptreFrame.ClientHeight: Property ClientHeight does not exist. --------------------------- OK ---------------------------
У меня такое случалось, и здесь я объясню причину, из-за которой это может происходить.
Обычно, когда вы создаете фрейм (скажем, TBaseFrameComponent), вы используете панель инструментов (или меню File > New > Other > Delphi Files > Frame).
При этом создается новый TbaseFrameComponent, который наследуется от TFrame.
Когда вы хотите создать фрейм (допустим, TMyFrameComponent), основанный на TBaseFrameComponent, вы также используете панель инструментов, (или File > New > Other > Inheritable Items > BaseFrameComponent). Так создается новый TMyFrameComponent, который наследуется от TBaseFrameComponent.
Но если у вас уже имеется TMyExistingFrameComponent, унаследованный от TFrame и вы хотите сделать его наследником TBaseFrameComponent?
Вы меняете эту декларацию:
{$i Defines.Inc}
unit MyExistingFrameComponentUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TCustomMyExistingFrameComponent = class(TFrame)
end;
TMyExistingFrameComponent = class(TCustomMyExistingFrameComponent)
end;
implementation
{$R *.dfm}
end.
На эту:
{$i Defines.Inc}
unit MyExistingFrameComponentUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, BaseFrameComponentUnit;
type
TCustomMyExistingFrameComponent = class(TBaseFrameComponent)
end;
TMyExistingFrameComponent = class(TCustomMyExistingFrameComponent)
end;
implementation
{$R *.dfm}
end.
Если вы оставите такой код без изменений, то рано или поздно получите приведенную выше ошибку.
Поискав информацию о данной ошибке, я нашел только две релевантные Web-страницы:
TFrame descendant strange behavior
TFrame descendand dfm corrupted
Это и натолкнуло меня на верный путь.
Поскольку только TForm имеет published свойство ClientHeight (а еще TForm имеет published свойства: ClientWidth, OldCreateOrder, PixelsPerInch, TextHeight), странно, что TFrame не имеет его.
Проблема в том, что как только .pas файл был изменен, IDE думает, что это не фрейм или что-то еще, а именно форма!
Фактически это происходит потому, что IDE видит, что TCustomMyExistingFrameComponent наследуется от TBaseFrameComponent, который не распознается как визуально модифицируемый (designable) класс, такой как TFrame или TDataModule . По умолчанию он TForm, и при сохранении он будет вводить такие свойства как ClientHeight, ClientWidth, OldCreateOrder, PixelsPerInch и TextHeight.
Фокус состоит в том, что бы, не только изменить .pas файл, но и еще изменить .dfm файл, поменять ключевое слово object на inherited.
Старый фрагмент .dfm:
object CustomMyExistingFrameComponent: TCustomMyExistingFrameComponent Left = 0 Top = 0 ClientHeight = 71 ClientWidth = 156 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True PixelsPerInch = 96 TextHeight = 13 end
Новый фрагмент .dfm:
inherited CustomMyExistingFrameComponent: TCustomMyExistingFrameComponent Left = 0 Top = 0 ClientHeight = 71 ClientWidth = 156 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = True PixelsPerInch = 96 TextHeight = 13 end
После перевода отображения .dfm файла из текстового вида в вид формы и обратно, новый .dfm фрагмент чудесным образом преобразуется в что-то подобное:
inherited CustomMyExistingFrameComponent: TCustomMyExistingFrameComponent
Width = 71
Height = 156
ParentFont = False
ExplicitWidth = 71
ExplicitHeight = 156
end
Теперь, как только вы перекомпилируете пакет компонентов, формы/фреймы перезагрузятся с учетом компонентов, размещенных на фрейме, и все будет нормально размещено.
В заключение маленькое резюме.
Как конвертировать фрейм -компонент TMyFrame который наследуется непосредственно от TFrame в аналогичный, наследуемый от TBaseFrameComponent.
1. Измените .pas файл так, что бы TMyFrame наследовался не от TFrame, а от TBaseFrameComponent.
2. Измените .dfm файл так, что бы ключевое слово object было заменено на inherited.
3. Сделайте ребилд пакета.
Вот и все!