见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;
Ta = class public class procedure set;就是类函数 end;(类函数就是不用创建就可以调用) Ta.set;
class function CreateParentedControl(ParentWindow: HWnd): TWinControl;
实现也是那样
class function TWinControl.CreateParentedControl(ParentWindow: HWnd): TWinControl;
begin
Result := TWinControl(NewInstance);
Result.FParentWindow := ParentWindow;
Result.Create(nil);
end;
public
class procedure set;就是类函数
end;(类函数就是不用创建就可以调用)
Ta.set;