Как в TCollectionItem использовать метод Сliсk

[bulldog5293]

если использовать procedure Click;dynamic, то компилятор не ругается, но и не какой реакции нет, а если override, то пишет что Method 'Click' not found in base class

TMyItem = class(TCollectionItem)
  private;
    FOnClick: TNotifyEvent;
    protected
    procedure SetOnclick(Value: TNotifyEvent);
    procedure Click; override;
  published
   property OnClick: TNotifyEvent read FOnClickwrite FOnClick;

[Аватар]

С какого перепуга оно будет реагировать? Это не визуальный класс, прямой наследник TPersistent.

[eval]

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

[northener]

Вторая серия?
http://www.programmersforum.ru/showt...CollectionItem

[Vapaamies]

Похоже, что аффтар никак автоматизацию кнопки бачка унитаза не напишет. Код его не компилил, но глядя на вызов Pie в отрисовке, в голову именно кнопка смыва и приходит. А коллекция -- чтобы количество воды после разных дел регулировать: отлил, освободился, наблевал и т. п.

[bulldog5293]

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

таким макарам не получается, вырубает delphi

TMyItem = class(TCollectionItem)
  private;
    FOnClick: TNotifyEvent;
    Function GetOnClick:TNotifyEvent;
    Procedure SetOnClick(Value:TNotifyEvent);
    protected
    procedure SetOnclick(Value: TNotifyEvent);
    procedure Click; override;
  published
   property OnClick: TNotifyEvent read FOnClickwrite FOnClick;
////
Function GetOnClick:TNotifyEvent;
Begin
  Result:=TbutonsItem.OnClick;
End;

Procedure SetOnClick(Value:TNotifyEvent);
Begin
  TbutonsItem.OnClick:=Value;
End;

Vapaamies? ну извени что мой компонент так похож на то чем ты любиш пользоваться

[eval]

Result:=TbutonsItem.OnClick

это что? TbutonsItem это тип а вам надо селф, да и ваще чего вы тут делаете?

[Alex11223]

procedure Click; override;

Сказали же, что не визуальный компонент это, нет у него в родителях никакого клика.

Что вы сделать пытаетесь?

[northener]

bulldog5293, как ты думаешь мне достаточно будет написать следующие строчки

MyComPort = class(TcollectionItem)
private
  FOnRead: TNotifyEvent;
protected
  procedure ReadBuffer;
published 
  property OnRead read FOnRead write FOnRead;
end;

чтобы такой компонент мог читать то что приходит с COM порта?

[bulldog5293]

northener, я же не использую прямой указатель, а объясняю откуда читать и куда писать

 property OnClick: TNotifyEvent read FOnClickwrite FOnClick;
////
Function GetOnClick:TNotifyEvent;
Begin
  Result:=TbutonsItem.OnClick;
End;

Procedure SetOnClick(Value:TNotifyEvent);
Begin
  TbutonsItem.OnClick:=Value;
End;

Из ваших объяснений я понял что мне нада указывать на обработку нажатия от копонента или нет?