Написание компонента, наследование (TPanel)

[SoftKoc]

Здравствуйте

Пишу свой компонент.
У меня вот какой вопрос.

Основным классом является TPanel. После чего пишу еще два класса TImage, TButton.

Мне нужно чтобы TImage, TButton отображались на TPanel.
Пробовал в конструкторе TButton в Parent присваивать TPanel ничего не получилось. Как это можно реализовать?

Глупо задан вопрос, просто с написанием компонентов столкнулся впервые.

Заранее очень благодарен.

[asmodey1]

http://www.programmersforum.ru/showp...53&postcount=2

[ArtGrek]

unit sArtPanel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sMemo, sPanel, sLabel, sEdit, sSpinEdit, ExtCtrls, sCheckBox,
  sSkinProvider, sSkinManager;
 
var
  ArtImage: TImage;
  ArtComboBox: TComboBox;
  ArtCheckBox: TsCheckBox;  

type
  TsArtPanel = class(TPanel)
  private
    { Private declarations }
    FArtLines: TStringList;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property ArtLines: TStringList read FArtLines write FArtLines;
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('NewPage', [TsArtPanel]);
end;

{ TsArtPanel }

constructor TsArtPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  TPanel(Self).Parent := TForm(AOwner);
  FArtLines := TStringList.Create;

  ArtImage := TImage.Create(AOwner);
  ArtImage.Parent := TsArtPanel(Self); 
end;

end.

нам нужны похожие компоненты

[SoftKoc]

ArtGrek - Спасибо, работает. Но проблема в том что когда кидаешь компонент на фору, и пытаешься скомпилить проект, оно кричит на скрол, возможно все таки нужно создать класс TScrollBar а не просто переменную???

Делаю вот так:

unit skGantt;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Graphics, StdCtrls;

type
  TskGantt = class(TPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    constructor Create(AOwner: TComponent); override;
    property Width default 200;
    property Height default 100;
    { Published declarations }
  end;

var
 skScrollBar: TScrollBar;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SK', [TskGantt]);
end;

{ TskGantt }

constructor TskGantt.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width:=200;
  Height:=100;

  skScrollBar:=TScrollBar.Create(AOwner);
  skScrollBar.Parent:=TskGantt(Self);
  skScrollBar.Width:=200;
  skScrollBar.Left:=0;
  skScrollBar.Top:=0;
end;

end.

Кидаю компонент на форму, результат при компиляции проекта -
Ошибка.jpg

[Прик]

Причина ошибки то простая. Владельцем скроллбара должен быть наш компонент, а не какой-то другой объект.

 skScrollBar:=TScrollBar.Create(Self);

И все дела.

[ArtGrek]

Self: TsArtPanel;
в моем случае, поетому полностью согласен с Прик
и зделаю я мои Image своиством

...
type
  TsArtPanel = class(TPanel)
  private
    { Private declarations }
    FArtLines: TStringLis
    FArtImage: TImage;
...
  published
    { Published declarations }
    property ArtLines: TStringList read FArtLines write FArtLines;
    property ArtImage: TImage read FArtImage write FArtImage;
    constructor Create(AOwner: TComponent); override;
...
constructor TsArtPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  TPanel(Self).Parent := TForm(AOwner);
  FArtLines := TStringList.Create;

  ArtImage := TImage.Create(Self);
  ArtImage.Parent := TsArtPanel(Self);
...

[SoftKoc]

Огромное спасибо, все работает =-)))

Почему я не могу в своем классе создать динамический массив компонентов:

type
  TskPanel = class(TPanel)
   skScrollBar: TScrollBar;
   skCanvas: TImage;
   skTimeBar: array of TShape;
  private

Говорит:
[Error] skPanel.pas(12): Published field 'skTimeBar' not a class nor interface type

[ArtGrek]

Изданная область 'skTimeBar' не класс, ни тип интерфейса

[SoftKoc]

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

Изданная область 'skTimeBar' не класс, ни тип интерфейса

Нужно писать для этого отдельный класс?

[ArtGrek]

skTimeBar: array of TShape;

а как вы его потом создаете?