Создание компонента

[Neobrat]

Доброго времени суток...

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

Но тут наткнулься на стену)
Мне необходимо чтоб в компоненте можно было добавить колекцию.
Т.е. чтоб в во время дизайна можно было добавлять элементы колекции со своими параметрами..

Решил для примера решить такую вот задачу.

Создать компонент на основе TButton.
В нем реализовать счетчик нажатий.
На каждое нажатие чтоб выводилось в Caption кнопки количество нажатий и в добавок определеную строчку.

Вот эти самые определенные строчки и надо добавить-редактировать в disign-time

вот сам код компонента и колекции

unit IncButtonCollection;

interface
uses   SysUtils, Classes, Controls, StdCtrls;
type

 TIncButtonCollection = class;
 TTestCollection = class(TButton)
 private
  Fix:integer;
  FCollection:TIncButtonCollection;
  procedure SetCollection(Value: TIncButtonCollection);
 protected
   { Protected declarations }
 public
  procedure Click; override;
  constructor Create(AOwner: TComponent); override;
  property Ix:integer read Fix write Fix;
 published
  property Collection:TIncButtonCollection read FCollection write SetCollection;
 end;

 {TIncButtonItem}

 TIncButtonItem=class(TCollectionItem)
 private
  FOwner:TIncButtonCollection;
  FCaption:string;
  FIndex:Integer;
 protected
 public
  property Index:integer read FIndex;
  property Caption:string read FCaption write FCaption;
  constructor Create(AOwner: TCollection); override;
 end;
 {TIncButtonCollection}

 TIncButtonCollection=class(TCollection)
 FOwner:TTestCollection;
 private
 FCount:integer;
  function GetItem(Index: Integer): TIncButtonItem;
  procedure SetItem(Index: Integer; Value: TIncButtonItem);
 protected
  function GetOwner: TPersistent; override;
  procedure Added(var Item:TCollectionItem); override;
 public
  constructor Create(AOwner: TTestCollection);
  function Add:TIncButtonItem;
  function Owner: TTestCollection;
  property Items[Index: Integer]:TIncButtonItem read GetItem write SetItem; default;
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyPalette', [TTestCollection]);
end;


{ TIncButtonCollection }

function TIncButtonCollection.Add: TIncButtonItem;
begin
result:=TIncButtonItem(inherited Add);
end;

function TIncButtonCollection.GetItem(Index: Integer): TIncButtonItem;
begin
Result := TIncButtonItem(inherited GetItem(Index))
end;

procedure TIncButtonCollection.SetItem(Index:Integer; Value:TIncButtonItem);
begin
inherited SetItem(Index,Value);
end;

function TIncButtonCollection.GetOwner: TPersistent;
begin result:=FOwner; end;

constructor TIncButtonCollection.Create(AOwner: TTestCollection);
begin
 inherited Create(TIncButtonItem);
  FOwner := AOwner;
  FCount:=0;
end;

function TIncButtonCollection.Owner: TTestCollection;
begin Result:=FOwner; end;


procedure TIncButtonCollection.Added(var Item: TCollectionItem);
begin
  inherited;
Inc(FCount);
end;

{ TIncButtonItem }

constructor TIncButtonItem.Create(AOwner: TCollection);
begin
  inherited Create(AOwner);
  FOwner := TIncButtonCollection(AOwner);
  Caption:='NewCaption';
  FIndex:=TIncButtonCollection(AOwner).Count+1;
end;

{ TTestCollection }

procedure TTestCollection.Click;
var ix:integer;
begin
  inherited Click;
Inc(FIx);
Caption:=IntToStr(ix);
{
что то в этом роде
if ix<FCollection.Count then
Caption:=Caption+' '+FCollection.Items[ix].Caption;
}
end;

constructor TTestCollection.Create(AOwner: TComponent);
begin
  inherited;
Fix:=0;
end;



procedure TTestCollection.SetCollection(Value: TIncButtonCollection);
begin
 FCollection.Assign(Value);
end;


end.

думаю что что то нехватает, но чего именно не пойму..



буду благадарен за любую подсказку.

p.s. не предлагать заменить колекцию на скажем TStringList понятно что можно и при помоши него это сделать..
это тестовый пример, в реале у элемента колекции много параметров

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

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

[cdef962]

So nice analysis. Good point.I think you could try runescapeand Maple Story Mesos.

[Oburec]

Читай раздел главы 22 в приведенной книге и будет тебе счастье...
http://slil.ru/27499934

Стив Тейксейра, Ксавье Пачеко.
Delphi 5. Руководство разработчика

Также книгу можно найти на ftp podgoretsky.com