Библиотека Интернет Индустрии I2R.ru

TObject является общим предком всех классов в Delphi, корнем иерархии Visual Component Library. Tobject представляет собой абстрактный класс, реализующий только наиболее общие механизмы, универсально разделяемые всеми объектами VCL.

TObject автоматически используется как порождающий тип при создании нового класса Delphi. Следовательно, следующие фрагменты кода имеют одно и то же значение:

        type
          TNewObject = class
        end;


        type
          TNewObject = class (TObject)
        end;

Таблица 3-1 отображает методы общецелевого назначения, реализуемые TObject. В общем случае из этих методов разработчикам приложений интересны только три: Create, Destroy и Free.
 

Таблица 3-1 Методы, реализуемые Tobject

Использовать или установить это...	Чтобы сделать это...
ClassName	Получить имя класса объекта.
ClassParent	Получить родительский класс объекта.
ClassType	Получить действительный тип объекта.
Create	Сконструировать новый объект.
DefaultHandler	Данная виртуальная функция не имеет реализации - на уровне T0bject она ничего не делает.
Destroy	Разрушить объект
Free	Разрушить объект, сконструированный Create.
InheritsFroin	Определить, порожден ли объект от определенного класса.
InstanceSize	Определить количество памяти, отведенное объекту.

Метод ClassName

// Создать (Create) форму с простой командной кнопкой. 
// Когда кнопка нажимается, заголовок Form1 изменяется 
// на "TButton"
procedure TForm1.Button1Click(Sender: TObject);
  begin
    Form1.Caption := Button1.ClassName;
  end;

Метод ClassParent

procedure TForm1.Button1Click(Sender: TObject);
var
 // Создать переменную типа TCIass
  MyParent: TClass;
begin
 // Сначала присвоить тип класса Buttoni 
 // переменной MyParent
  MyParent := Button1.ClassType;
 // Затем использовать ClassParent для определения
 // родительского класса MyParent
  MyParent := MyParent.ClassParent;
 // Наконец, вывести строку с ClassName
  Form1.Caption := MyParent.ClassName;
end;

Метод ClassType

// Когда нажимается кнопка, заголовок 
// TForm1 изменяется на "TButton"
procedure TForm1.Button1.Click(Sender: TObject);
begin
  Form1.Caption := Button1.ClassType.ClassName;
end;

Метод Create

// При создании формы динамически соадаег новый 
// объект и печатает в заголовке
// формы тип класса нового объекта, TObject.
procedure TFonnI.FonnCreate (Sender: TObject);
var
  MyObject: TObject;
begin
  MyObject := TObject.Create;
  Form1.Caption := MyObject.ClassType.ClassName;
end;

Метод Destroy

Метод Free

Метод InheritsFrom

// Поскольку TButton является потомком TWinControl, 
// данный обработчик события изменит заголовок 
// формы
procedure TFonnl.ButtonlClick(Sender: TObject);
  begin
    if (Sender. lnheritsFrom(TWinControl)) then
    Form1.Caption:='TButton descends from TWinControl';
  end;

Метод InstanceSize