GUI应用程序中的此代码编译并运行:
procedure TForm1.Button1Click(Sender: TObject); begin Self := TForm1.Create(Owner); end;
(使用Delphi 6和2009测试)
编辑:
更新:使用Self赋值的Delphi应用程序/库:
delphi oop language-features self delphi-prism
delphi ×1
delphi-prism ×1
language-features ×1
oop ×1
self ×1