Ошибки в собст. компоненте. Нужнен наставник.

[apromix]

Начал делать свой компонент, из ошибок не выхожу А нужен вобщем невизуальный компонент, в котором бы была лишь коллекция RichEdit'ов. Наигрался, вроде получилось, но не работает Подскажите что не так.

[Пепел Феникса]

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

нужна помощь, задавайте вопросы, я помогу.

[apromix]

Сообщение от Пепел Феникса

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

нужна помощь, задавайте вопросы, я помогу.

Компонент - просто шаблон будущего компонента, потому простой. Он и у меня нормально устанавливается. Я не могу сделать так, чтобы в среде Дельфи можно было бы добавлять элементы коллекции. Програмно знаю как, а вот в среде - нет. А нужно именно в среде, например, как добавляются элементы СтатусБара. Еще нужно чтобы отдельный элемент имел поле TStrings и щелкая по нему открывался бы редактор, чтобы в это поле записать текст можно было бы. Спасибо.

[Скандербег]

Програмно знаю как, а вот в среде - нет. А нужно именно в среде, например, как добавляются элементы СтатусБара

Для этих целей применяются TCollection и TCollectionItem.

[apromix]

Сообщение от Скандербег

Для этих целей применяются TCollection и TCollectionItem.

Это понятно и так Выше я выложил исходник.

[Скандербег]

Теперь понятно.
В TItems вместо FOwner : TPersistent; надо указывать класс своего компонента: FOwner : TColl;

  TItemClass = class of TItem;
.....
  TItems = class(TCollection)
   private
     FOwner  : TColl;
     function GetItem(Index: Integer): TItem;
     procedure SetItem(Index: Integer; Value: TItem);
   protected
     function GetOwner: TPersistent; override;
   public
    constructor Create(Owner: TColl);
.....
  TColl = class(TComponent)
  private
    fItems: TItems;
    function GetItemClass: TItemClass; virtual;
.....
constructor TItems.Create(Owner: TColl);
begin
  if Owner <> nil then
    inherited Create(Owner.GetItemClass)
  else
    inherited Create(TItem);
  FOwner := Owner;
end;

function TColl.GetItemClass: TItemClass;
begin
  Result := TItem;
end;

Если ничего не забыто, то примерно так.

Но (просто интересно) как вы собираетесь добавлять в коллекцию сами RichEdit'ы в среде дельфи? Почему такой вопрос.
Вот представляю, есть у меня этот замечательный не визуальный компонент, положил его на форму, а теперь что? Надо теперь с RichEdit'ами что-то делать. Заранее их расположить на форме (формах) или они должны создаваться при добавлении элементов в коллекцию?
Если при добавлении в коллекцию, то как сделать чтобы они принадлежали какой-то форме?
Если заранее, то, видимо, в компоненте нужно свойство, которое "захватывает" расположенные на форме RichEdit'ы.
Есть ли решение как предполагается использовать?

[apromix]

Вы правы. Достаточно будет TStrings, мне то нужно всего навсего редактор Delphi, который выскакивает, когда правишь текст в TMemo или TRichEdit