TObject

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

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

        type
          TNewObject = class
        end;

        type
          TNewObject = class (TObject)
        end;

Object объявляет конструктор и деструктор (специальные методы, которые
создают и разрушают объекты)и реализует информацию о типе и методах обработки
сообщений. Поскольку TObject является абстрактным классом, большинство
его методов перекрывается в его потомках в рамках VCL. Обычно у вас будет
доступ к порожденной реализации Create, конструктору и Free,
безопасно вызывающему деструктор Destroy.

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

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

Метод 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

Возможный вариант – присвоить
ссылку на этот компонент свойству FocusControl TLabel’а. В примере используется
невидимый Label для создания “быстрой” клавиши (Alt+M) компонента Memo. Чтобы
использовать пример, разместите на форме компонет TMemo, Label и несколько других
компонентов, которые могут принимать фокус ввода. Запустите программу, перевидите
фокус ввода куда-нибудь вне Memo и нажмите Alt+M – фокус ввода вернется в Memo.

Пример:
procedure TForm1.FormCreate(Sender: TObject);
begin
	Label1.Visible := false;
	Label1.Caption := '&M';
	Label1.FocusControl := Memo1;
end;

В примере показано как
показать меню и выбрать в нем какой-то пункт, эмулируя нажатие “быстрой кдавиши”
пункта меню. Если у Вашего пункта меню нет “быстрой клавиши” Вы можете посылать
комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно “путешествовать”
по меню.

Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
	//Allow button to finish painting in response to the click
	Application.ProcessMessages;
	{Alt Key Down}
	keybd_Event(VK_MENU, 0, 0, 0);
	{F Key Down - Drops the menu down}
	keybd_Event(ord('F'), 0, 0, 0);
	{F Key Up}
	keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
	{Alt Key Up}
	keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
	{F Key Down}
	keybd_Event(ord('S'), 0, 0, 0);
	{F Key Up}
	keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
end;