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.
|