| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Наследование стандартных классов.

Toster ©   (2002-08-24 20:37:00) 

В результате исполнении этого кода возникает Access Violation в момент вызова Create. Tree существует. Это происходит при наследовании и других стандартных классов, например TStrings, которому в констуктор вообще ничего не передается.

....
type
MyClass = class(TTreeNode)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyNode: MyClass;
....

procedure TForm1.FormCreate(Sender: TObject);
begin
MyNode.Create(Tree.Items);
end;

---

Toster   (2002-08-24 20:47:00) [1]

Большое Спасибо!

---

Mikhail   (2002-08-24 20:46:00) [2]


MyNode := MyClass.Create(...)

---

Наверх