Скачать: CL | DM;

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

← →
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]

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

---

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

> 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;


---

← →
Юрий Зотов ©   (2007-08-06 01:39) [7]

> Apachi

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c