Как при создании своего компонента переопределить событие

← →
Apachi (2007-08-03 17:27) [0]

Уважаемые мастера
Как при создании своего компонента переопределить событие
хочу выкинуть в обработчик допалнительный параметр

← →
Dib@zol © (2007-08-03 17:28) [1]

Что за компонент, что за событие? Пример - в студию!

← →
Apachi (2007-08-03 17:32) [2]

unit DBTreeView;

interface

uses
SysUtils, Classes, Controls, ComCtrls, StdCtrls, DB,
pFIBDatabase, pFIBDataSet, ValEdit,Dialogs;

type
TAddItemsFromBD = procedure(Sender: TObject; Node: TTreeNode; Table: TDataSet) of object;

TNewTreeView = class(TTreeView)
private
{ Private declarations }
и так далее ...

необходимо переопределить событие
OnChange(Sender: TObject; Node: TTreeNode);

хочу добавит еще один параметр что бы получить обработчик вида
OnChange(Sender: TObject; Node: TTreeNode; New: TObject);

← →
Dib@zol © (2007-08-03 17:35) [3]

> New: TObject

Блн. Моск непашет. Для чего оно тут??

← →
Плохиш © (2007-08-03 17:43) [4]

> Apachi (03.08.07 17:32) [2]

Непонятно, что должен будет TNewTreeView передавать в качестве New в обработчик?

← →
Apachi (2007-08-03 17:49) [5]

да не важно что передавать
главное чтоб передавало

> Apachi (03.08.07 17:49) [5]
> да не важно что передавать
> главное чтоб передавало

Тогда, тебе надо переписать
procedure TCustomTreeView.Change(Node: TTreeNode); begin FSelectChanged := True; FinishSelection(Selected, KeyDataToShiftState(0) + [ssLeft]); if Assigned(FOnChange) then FOnChange(Self, Node); end;

> Apachi

Свойства (а события - это тоже свойства) невиртуальны, поэтому перекрыть свойство не удастся. Создайте новое, с другим именем.

Как при создании своего компонента переопределить событие Найти похожие ветки