Несколько компонент в 1 + новые своиства

[ArtGrek]

Всем здравствуите!
Для моеи программы надо динамически создавать неопределеное количество

  Panels: TPanel; // компоненты ниже должны лежать на нем
    Images: TImage;
    Effects: TComboBox;
    EffectsL: TLabel;
    Intervals: TDecimalEdit;
    IntervalsL: TLabel;
    Checks: TCheckBox;

+ ко всему создаю много списков(TObjectList, TStringList) для хранения различных своиств каждого компонента
теперь решил, по совету умных людеи, попробывать написать свои компонент

1) подскажите где можно почитат об етом, полезную инфу
ато просто создание кнопки(скачал Dfaq с форума) со своиством Count и встроеным Timer, не очен мне раскрыло смыс создания компонент
2) как мне выберая родителя учест все компоненты
думаю, можно взять за основу TPanel, и его изменять

unit sArtPanel;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sMemo, sPanel, sLabel, sEdit, sSpinEdit, ExtCtrls, sCheckBox,
  sSkinProvider, sSkinManager;  //нужны будут в дальнеишем, буду работать со Skins
type
  TsArtPanel = class(TsPanel)
  private
    { Private declarations }
    FArtLines: TStrings;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property ArtLines: TStrings 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);
end;
end.

не густо конешно, но начало есть)
но вопросов теперь еше больше
например, как зделать, что б появившееся своиство ArtLines, заработало как своиство Lines у Memo
var
ArtMemo: TMemo;
а дальше...?

P.S. уже не говорю о том что одни ставят constructor в public, а другие в published, читал, но еше не разобрался, видимо на практике разбеусь

[veniside]

> динамически создавать неопределеное количество

> написать свои компонент

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

> 1) подскажите где можно почитат об етом, полезную инфу

в хелпе.

> 2) как мне выберая родителя учест все компоненты

Набор слов с ошибками. Прочтите "Как нам реорганизовать рабкин". К Дельфи это отношения не имеет, зато название тоже красивое.

> FArtLines: TStrings;

неплохо бы в конструкторе это создать, раз уж вынесли в published.

> ArtMemo: TMemo;

мемо тут каким боком?

> одни ставят constructor в public

и это правильно.

> а другие в published

так делают только очень одарённые личности.

[ArtGrek]

> динамически создавать неопределеное количество

> написать свои компонент

Одно с другим слабо вяжется.

раньше создавал 50 TPanel, а на них: TImage; TComboBox; TLabel; TDecimalEdit; TLabel; TCheckBox;
сеичас хочу ето все объединить

Набор слов с ошибками.

я живу не в русско говорящеи стране и пишу по русски только здесь, нет практики, извените если что не так

неплохо бы в конструкторе это создать, раз уж вынесли в published.

kak?

> ArtMemo: TMemo;

мемо тут каким боком?

если без Memo откуда тогда брать своиство Lines?

...
inherited Create(AOwner);
  FArtLines := TStrings.Create;
...

[Warning] sArtPanel.pas(44): Constructing instance of 'TStrings' containing abstract method 'TStrings.Clear'
[Warning] sArtPanel.pas(44): Constructing instance of 'TStrings' containing abstract method 'TStrings.Delete'
[Warning] sArtPanel.pas(44): Constructing instance of 'TStrings' containing abstract method 'TStrings.Insert'
видимо надо создат метод удаления и вставки
abstract error во время сохранения проекта с моеи компонентаи

[veniside]

> раньше создавал 50 TPanel ... сеичас хочу ето все объединить

это понятно, просто не обязательно всё это оформлять именно в виде комопненты. Возможно, будет достаточно просто создать свой класс.

> я живу не в русско говорящеи стране

что ж, тогда могу сказать, что пишете вы часто грамотнее некоторых коренных жителей, мои комплименты )

> kak?

FArtLines := TStringList.create();

> если без Memo откуда тогда брать своиство Lines?

FArtLines и будет вместо него.

> abstract error во время сохранения проекта с моеи компонентаи[/QUOTE]

Да, TStrings слишком абстрактен, нужно создавать одно из наследников, типа TStringList как выше.

[ArtGrek]

...
  private
    { Private declarations }
    FArtLines: TStrings;
...
constructor TsArtPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FArtLines := TStringList.Create;
end;

появился редактор для строк, но как только заполнил его, сново началась серия ошибок типа

Access violation at address 40005A0C in module 'rtl70.bpl'. Read of address FFFFFFDD

подскажите пожалуста кто нибудь, что мне далше делать???

[ArtGrek]

добавил на Panel Image как своиство, а строки не получилось
вот хотел посмотреть как создаеца StringList наследник Strings, но вот беда
uses System

constructor TObject.Create;
begin
end;

вот полазил в модуле Classes и выдернул ето
но и там нет самого создания, все его функции и своиства, даже Destroy, но Create нет, подскажите как быть?
как добавить моему Panel такое своиство как Строки?

[xexxex]

как добавить моему Panel такое своиство как Строки?

Глянь например, как это делается в модуле ExtCtrls у класса TCustomRadioGroup.

....
property Items: TStrings read FItems write SetItems;
....

А может проще вместо панели\своего компонента заюзать TFrame? Навалить на него чего угодно, а потом создавать десятками и Parent := ...
Да и дизайн будет удобен, как будто на форме...

[ArtGrek]

SetItems;

спасибо разобрался
----------------------------------------------------------------------
но теперь есть другая проблемка
у меня на Panel есть ComboBox и я хочу изменить ему рамер,
если програмно меня на форуме научили как ето делать,
но что б сохранить по умолчанию, чет не выходит
я уже чуть лучше ариентируюсь в модулях, но всетаки не нашел
подскажите как делаеца такое

вот сам компонент

unit sArtPanel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TsArtPanel = class(TPanel)
  private
    { Private declarations } // Внутрение своиства. Для компонента
    FArtLines: TStrings;
    FArtImage: TImage;
    FArtCheckBox: TCheckBox;
    FArtComboBox: TComboBox;
    FArtComboBoxItemHeight: Integer;
    procedure SetArtLines(const Value: TStrings);
    procedure SetArtComboBoxItemHeight(const Value: Integer);
  protected
    { Protected declarations } // Внешние своиства. Для наследников
  public
    { Public declarations } // Не видно своиство в инспекторе объектов
  published
    { Published declarations } // Видно своиство в инспекторе оъектов
    property ArtLines: TStrings read FArtLines write SetArtLines;
    property ArtImage: TImage read FArtImage write FArtImage;
    property ArtCheckBox: TCheckBox read FArtCheckBox write FArtCheckBox;
    property ArtComboBox: TComboBox read FArtComboBox write FArtComboBox;
    property ArtComboBoxItemHeight: Integer read FArtComboBoxItemHeight write SetArtComboBoxItemHeight;
    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);
  with TsArtPanel(Self) do
  begin
    Parent := TForm(AOwner);
    Constraints.MinHeight := 150;
    Constraints.MinWidth := 270;
    Height := 150;
    Width := 270;
  end;

  FArtLines := TStringList.Create;

  ArtImage := TImage.Create(Self);
  with ArtImage do
  begin
    Parent := TsArtPanel(Self);
    Height := TsArtPanel(Self).Height - 20;
    Width := TsArtPanel(Self).Width - 90;
    Top := 10;
    Left := 10;
    Anchors := [akLeft,akTop,akRight,akBottom];
    Caption := '';
  end;

  ArtCheckBox := TCheckBox.Create(Self);
  with ArtCheckBox do
  begin
    Parent := TsArtPanel(Self);
    Top := 5;
    Left := 245;
    Anchors := [akTop,akRight];
  end;

  ArtComboBox := TComboBox.Create(Self);
  with ArtComboBox do
  begin
    Parent := TsArtPanel(Self);
    Height := TsArtPanel(Self).Height - 20;
    Width := TsArtPanel(Self).Width - 90;
    Top := 10;
    Left := 10;
    Anchors := [akRight,akBottom];
  end;

end;

procedure TsArtPanel.SetArtComboBoxItemHeight(const Value: Integer);
begin
  if Value > 0 then
  begin
    FArtComboBoxItemHeight := Value;
    RecreateWnd;
  end;
end;

procedure TsArtPanel.SetArtLines(const Value: TStrings);
var
  i: integer;
begin
  if Value <> FArtLines then
  begin
    FArtLines.Clear;
    for i :=0 to Value.Count do
      if not (Value[i] = '') then FArtLines.Add(Value[i]);
  end;
end;

end.

P.S. я не просто жду ответа, а читаю паралельно Dfaq, Фаронов Искусство создания компонентов Delphi.djvu, и в инете ишу, так к свединию )))