Delphi-Help

Описание

var Self : Class Type;

Переменная Self скрытый параметр для каждого метода в объекте. Он позволяет методу обратиться к объекту.

Это особенно важно, когда параметры метода такие же, как переменные класса, предназначенные для содержания этих переданных значений.

Пример кода

// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем Unit1 и с формой
// названную Form1, которая имеет событие OnCreate названное FormCreate.

unit Unit1;

interface

uses
Forms, Dialogs, Classes, Controls, StdCtrls, Windows;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation
{$R *.dfm} // Вложение определений формы

procedure TForm1.FormCreate(Sender: TObject);
begin
// Использование Self для идентификации формы позволяя нам
// установить некоторые атрибуты формы
Self.Caption := 'Test program';
Self.Visible := True;
end;

end.

Форма отобразится с загаловком:

Test Program

Примечание