Переопределение методов свойсв объекта

← →
shc (2004-08-17 17:48) [0]

Например, как переопределить методы свойсва Items (clear, Addchild) у наследнка TTreeview

← →
Skier © (2004-08-17 18:12) [1]

вообще-то у дерева есть виртуальные методы
function CreateNode: TTreeNode; virtual;
function CreateNodes: TTreeNodes; virtual;

А зачем это ?

← →
TUser © (2004-08-17 19:20) [2]

> как переопределить методы свойсва Items

Это тоже класс, надо написать его наследника, а потом уже наследника TTreeView, который будет использовать эти новые Items.

← →
Shc (2004-08-17 20:11) [3]

> Skier
Например, при очистке нужно удалять и все объекты привязанные к свойству Data

> TUser
А как объявить переопределенное свойство? Я понимаю, как виртуальный метод. А как свойство?

TMyItems=class(TItems)
public
procedure clear; override;
End;

TMyTree=class(TTreeView)
private
???
published
????
end;

← →
TUser © (2004-08-17 20:26) [4]

Напиши свое св-во с таким же названием.

← →
Shc (2004-08-17 20:32) [5]

Но это свойство должно читаться/записываться с помощью функции/процедуры, которые используют еще и приват-переменную

← →
shc (2004-08-19 12:28) [6]

Никто с таким не сталкивался, или это очевидно, но я не вижу?

Может тебе надо перехватить TTreeView.OnCreateNodeClass?

Переопределение методов свойсв объекта Найти похожие ветки