Не обрабатывается нажатие на компонент

[bulldog5293]

Написал компанент на основе TCollection и TCollectionItem, установил, поставил на форуму, в обработчике написал показать месагу, но компонент не отреагировал.

unit Unit3;

interface

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

type
  TNbutonsGroup = class;
  TSetNbutonsGroup1 = class;

  TbutonsItem = class(TCollectionItem)
  private
    FNbutonsGroup: TNbutonsGroup;
    Fbutons: TCustomControl;
    FOnClick: TNotifyEvent;
    protected
    procedure Click; dynamic;
  public
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
  published
    //property //butons: TCustomControl read  Fbutons write Fbutons;
        property OnClick: TNotifyEvent read FOnClick write FOnClick;
  end;

  TNbutonsGroup = class(TCollection)
  private
    FSetNbutonsGroup: TSetNbutonsGroup1;
    function GetItem(Index: Integer): TbutonsItem;
    procedure SetItem(Index: Integer; const Value: TbutonsItem);
  protected
    function GetOwner: TPersistent; override;
  public
    constructor Create(SetNbutonsGroup: TSetNbutonsGroup1);
    function Add: TbutonsItem;
    property Items[Index: Integer]: TbutonsItem read GetItem write SetItem; default;
  end;

  TSetNbutonsGroup1 = class(TCustomControl)
  private
    Fbutons: TNbutonsGroup;
    procedure Setbutons(const Value: TNbutonsGroup);
    protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Canvas;
    property butons: TNbutonsGroup read Fbutons write Setbutons;
  end;



procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('nes', [TSetNbutonsGroup1]);
end;


constructor TbutonsItem.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  FNbutonsGroup:=GetOwner as TNbutonsGroup;
  Fbutons:=TCategoryPanel.Create(FNbutonsGroup.FSetNbutonsGroup);
//  Fbutons.Caption:='Nbutons';
 // Fbutons.ButtonGroup:=FNbutonsGroup.FSetNbutonsGroup;
end;

procedure TbutonsItem.Click;
begin
  if Assigned(FOnClick) then FOnClick(Self);
end;

destructor TbutonsItem.Destroy;
begin
  FreeAndNil(Fbutons);
  inherited;
end;

{ TNbutonsGroup }

function TNbutonsGroup.Add: TbutonsItem;
begin
  Result := TbutonsItem(inherited Add)
end;

constructor TNbutonsGroup.Create(SetNbutonsGroup: TSetNbutonsGroup1);
begin
  inherited Create(TbutonsItem);
  FSetNbutonsGroup := SetNbutonsGroup;
end;

function TNbutonsGroup.GetItem(Index: Integer): TbutonsItem;
begin
  Result := TbutonsItem(inherited GetItem(Index));
end;

function TNbutonsGroup.GetOwner: TPersistent;
begin
  Result := FSetNbutonsGroup;
end;

procedure TNbutonsGroup.SetItem(Index: Integer; const Value: TbutonsItem);
begin
  inherited SetItem(Index, Value);
end;

{ TCatPanelsGroup }

constructor TSetNbutonsGroup1.Create(AOwner: TComponent);
begin
  inherited;
  Fbutons:=TNbutonsGroup.Create(self);
end;

destructor TSetNbutonsGroup1.Destroy;
begin
  FreeAndNil(Fbutons);
  inherited;
end;

procedure TSetNbutonsGroup1.Setbutons(const Value: TNbutonsGroup);
begin
  Fbutons.Assign(Value);
end;

procedure TSetNbutonsGroup1.Paint;
var
  SaveColor: TColor;
  SaveStyle: TBrushStyle;
  i: integer;
begin
  inherited Paint;
  SaveColor := Canvas.Brush.Color;
  SaveStyle := Canvas.Brush.Style;
  Canvas.Brush.Style := bsSolid;
  for i := 0 to Fbutons.Count - 1 do
    with Fbutons.Items[i] do
      begin
        Canvas.Brush.Color := Color;//Height mod 2,left mod 2,
        Canvas.Pie(
Width div 2 - 50, Height div 2 - 50,
Width div 2 + 50, Height div 2 + 50,
Width div 2, Height div 2,
Width div 2, Height div 2 - 50);
        Canvas.Pen.color:=ClWhite;
        {Canvas.Pie(0,0,200,200,100,200,100,100);
        Canvas.Pen.color:=ClWhite;
        Canvas.Pie(0,0,200,200,100,0,50,100);
        Canvas.Pen.color:=ClWhite;
        Canvas.Pie(0,0,200,200,-10000,-100,-100,-99900);
        Canvas.Pen.color:=ClWhite;
      end;
  Canvas.Brush.Style := SaveStyle;
  Canvas.Brush.Color := SaveColor
end;

end.

Я сделал что то не так? Просто первый раз пишу компонент

[Vapaamies]

Где из внешней среды вызывается TButtonsItem.Click?

[bulldog5293]

вообще то у меня в обработчики получается procedure TForm2.SetNbutonsGroup11butons0Clic k(Sender: TObject);
Проект прикрепил

[Vapaamies]

Могу повторить вопрос: где из внешней среды вызывается TButtonsItem.Click? Чьим волшебством?

[bulldog5293]

TbutonsItem = class(TCollectionItem)
  private
    Fbutons: TCustomControl;
    FOnClick: TNotifyEvent;
    protected
    procedure Click; dynamic;
  published
        property OnClick: TNotifyEvent read FOnClick write FOnClick;
////
procedure TbutonsItem.Click;
begin
  if Assigned(FOnClick) then FOnClick(Self);
end;

[Stilet]

if Assigned(FOnClick) then FOnClick(Self);

Так а извне компонента этот метод как вызывается?
То что ты событие генерируешь это понятно, но для его генерации твоя прога, которая юзает этот компонент должна вызвать метод Click, о чем и твердит Vapaamies

Снимаю предидущий вопрос в связи с багом в коде:

Unit3 in 'E:\компаненты\TbutonsItem\Unit3.pa s';

Это по твоему нормально? Мало того что путь абсолютный, так еще и проект неполный.

[bulldog5293]

дальше OnClick не куда не идёт, т.к. не знаю что ещё можно прописать. На ум только приходит переделать TNotifyEvent, что бы он поддерживал index:integer, но опять не знаю как его описать и куда засунуть. Пробывал TNotifyEvent заменить на

 TButtonEvent = procedure(Sender: TObject; Index: Integer) of object;

Но тогда

  if Assigned(FOnClick) then FOnClick(Self);

Пишет что неверные данные передаю

[northener]

дальше OnClick не куда не идёт

Куда ему дальше если он до OnClick в принципе не может дойти.

[bulldog5293]

Куда ему дальше если он до OnClick в принципе не может дойти.

Намекните хоть, как сделать что бы дошёл

[Stilet]

Если память не подводит:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses     windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    //Переменка обработчика
    FOnClick: TNotifyEvent;
    procedure SetOnClick(AValue: TNotifyEvent);
    //Внутренний механизм события компонента
    procedure wmp(var m:TWMLButtonDown); message WM_LButtonDown;
    { private declarations }
  public
    { public declarations }
  published
    Property OnClick:TNotifyEvent read FOnClick write SetOnClick;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.SetOnClick(AValue: TNotifyEvent);
begin
  if FOnClick=AValue then Exit;
  FOnClick:=AValue;
end;

procedure TForm1.wmp(var m: TWMLButtonDown);
begin
  //Механизм события вызывает назначенную клику процедуру при приеме сообщения WM_LButtonDown;
  // От винды - этого тебе и не хватает
 if Assigned(OnClick) then FOnClick(self);
end;

end.

Это типа примера, на самом деле там чуть по другому должно быть. Кажись в книге Тексейры и Пачеко это описано весьма полно.