| Описание |
Переменная Self скрытый параметр для каждого метода в объекте. Он позволяет методу обратиться к объекту.
Это особенно важно, когда параметры метода такие же, как переменные класса, предназначенные для содержания этих переданных значений.
|
|
| Похожие команды |
As Используется для приведения объектных ссылок
Class Начинает объявление типа объектного класса
Function Определяет подпрограмму, которая возвращает значение
Is Проверяет, является ли объект потомком класса или его родителем
Procedure Определяет подпрограмму, которая не возвращает значение
| |
|
| Пример кода : Установка нескольких свойств основной формы программы |
// Полный код Модуля.
// -----------------------------------------------------------
// Вы должны поместить этот код в модуль с именем 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
|
|
