Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Apachi © (2007-08-03 17:27:00)
Уважаемые мастера
Как при создании своего компонента переопределить событие
хочу выкинуть в обработчик допалнительный параметр

Юрий Зотов (2007-08-06 01:39:00) [1]
> Apachi

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

Плохиш (2007-08-03 17:56:00) [2]

> 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 (2007-08-03 17:49:00) [3]
да не важно что передавать
главное чтоб передавало

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

> Apachi (03.08.07 17:32) [2]

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

Dib@zol (2007-08-03 17:35:00) [5]
> New: TObject

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

Apachi (2007-08-03 17:32:00) [6]
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:28:00) [7]
Что за компонент, что за событие? Пример - в студию!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »