События
Доступ к объекту передаваемому в TObject
Просмотр подчиненности объекта (Tobject * Source)
Доступ к объекту передаваемому в TObject
void __fastcall TfNetCop::TreeViewDragDrop(TObject *Sender, TObject *Source,
int X, int Y)
{
TTreeView * d=(TTreeView*) Sender;
ShowMessage(d->Name);
}
Просмотр подчиненности объекта (Tobject * Source)
TClass ClassRef;
ListBox1->Clear();
ClassRef = Source->ClassType();
while(ClassRef != NULL)
{
ListBox1->Items->Add(String(i)+ClassRef->ClassName());
ClassRef = ClassRef->ClassParent();
}