Создать класс(компонент) внутри компонента

[Deight]

Подскажите пожалуйста, например нужно создать компонент на основе panel, на ней расположить 2 панели но у которых обрабатывается mouseenter mouseleave. Я тут по быстрому написал код чтоб понятнее было о чем я

unit D8Skn;

interface

uses
  SysUtils, Messages, Classes, Forms, Graphics, Controls, ExtCtrls, Windows;

type
TD8CustomPanel = class(TCustomPanel)
  private
  FOnMouseLeave:TNotifyEvent;
  FOnMouseEnter:TNotifyEvent;
  procedure CMMouseLeave(var msg:TMessage); message CM_MOUSELEAVE;
  procedure CMMouseEnter(var msg:TMessage); message CM_MOUSEENTER;
  protected
  public
  published
  property OnMouseLeave:TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  end;

type
TD8Skn = class(TCustomPanel)
  private
  D8CustomPanel1:TD8CustomPanel;
  D8CustomPanel2:TD8CustomPanel;
  protected
  public
  constructor Create(AOwner: TComponent); override;
  published
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('D-EMP', [TD8Skn]);
end;

constructor TD8Skn.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 D8CustomPanel1:=TD8CustomPanel.Create(AOwner);
 D8CustomPanel1.Parent:=TForm(AOwner);
 D8CustomPanel2:=TD8CustomPanel.Create(AOwner);
 D8CustomPanel2.Parent:=TForm(AOwner);
end;

end.

когда скидываю на форму компонент до написания кода а потом запускаю все нормально, но как перекомпилирую при запуске программы возникает ошибка ...'Class TD8CustomPanel not found'... Что делать?

[Deight]

Забыл написать процедуры обработки mouseenter и mouseleave, но это не важно, вопрос не в этом заключается.

[alexBlack]

У Вас форма является владельцем объектов D8CustomPanel1/D8CustomPanel2. Поэтому эти компоненты тоже пишутся в .dfm. Чтобы их считать нужен класс, а он не зарегистрирован.

Это причина ошибки. Но это не все.

Можно, конечно зарегистрировать класс. Он будет читаться. Но догда в Design time можно будет легко удалить любую из панелей, которые вроде-бы объявлены private. Еще будут проблемы с лишними вызовами Create, но не буду углубляться.

Можно сделать по другому. Убрать владение и удалять панели самому.

 D8CustomPanel1:=TD8CustomPanel.Create(nil);

Но в этом случае в Design-Time с панелями ничего нельзя будет сделать (например переместить).

А вообще то, что Вы пытаетесь сделать не простая задача. Посмотрите VCL - как со своими страницами управляется TPageControl. Я бы не стал морочить голову, а создал этот компонент в run-time.

------------------
Еще вариант. Обрабатывать момент вставки/удаления компонента TD8Skn на форму (в design-time) и там создавать/удалять панели TD8CustomPanel. Там же можно будет запомнить ссылки на них и работать с этими ссылками. TD8CustomPanel придется тоже сделать компонентом и зарегистрировать.

[Deight]

Спасибо за ответ, я написал код чтоб просто было понятно о чем я, на самом деле вместо главной панели не визуальный компонент. А дополнительные панели ставятся на форму. Если можно как-то сделать что б они ставились не во время скидывания компонента на форму, а во время запуска программы и без всяких ошибок то подскажите как это сделать. Может пример где есть или статья, я не нашел.

[alexBlack]

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

.... Если можно как-то сделать что б они ставились не во время скидывания компонента на форму, а во время запуска программы и без всяких ошибок то подскажите как это сделать. Может пример где есть или статья, я не нашел.

Можно проверять в методе Loaded:

procedure TD8Skn.Loaded;
begin
   inherited Loaded;

   ShowMessage(ParamStr(0));
   // Пока форма разрабатывается ParamStr(0) = '...delphi32.exe' или 'bds.exe' (в зависимости от версии)
   // А когда запускается Ваша программа, то - имя Вашего exe-файла 
   // Вот тогда и создаем дополнительные панели
end;

[Deight]

Спасибо. Мне б статью почитать какую-нибудь про создание компонент внутри компонент.

[Altera]

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

Спасибо. Мне б статью почитать какую-нибудь про создание компонент внутри компонент.

Да ничего сложного там нет