怎么声明和实现“类函数”？

Question

比如类的 TObject.Create 就是一个类函数

Answer 1

见TWinControl（Controls单元）中的
class function CreateParentedControl(ParentWindow: HWnd): TWinControl;
实现也是那样
class function TWinControl.CreateParentedControl(ParentWindow: HWnd): TWinControl;
begin
  Result := TWinControl(NewInstance);
  Result.FParentWindow := ParentWindow;
  Result.Create(nil);
end;

Answer 2

Ta = class
public
class procedure set;就是类函数
end;(类函数就是不用创建就可以调用)
Ta.set;

Answer 3

构造函数要用constructor 后面的和写其它函数一样.