类的实现，怎么就这么的玄？

Question

class.create(self);
class.create(application);
它们有什么区别，create()还可带什么参数；class( ),如TWinControl( )是什么意思？

Answer 1

参数值的是创建该类的父类，可以写成Nil；注意如果写成Nil，那么必须手工释放！！！TWinControl是指必须是由TWinControl派生的类才能使用。

Answer 2

class( ), 从TObject派生.
TWinControl( )，从TWinControl派生

Answer 3

Delphi_Li(Delphi Li) 说的对

Answer 4

procedure TPageControls.CreateFrame(InstanceClass: TWincontrolClass; var Reference);
var
  Instance: TWinControl;
  I: Integer;
  Sheet: TRzTabSheet;
  pages:TPageControl;
  Framelist:TStringList;
  Sheetlist:TStringList;
begin
  pages:=TpageControl.create(self);
  Framelist:=TStringlist.create;
  Sheetlist:=TStringlist.create;
  I := FrameList.IndexOf(InstanceClass.ClassName);
  if I > -1 then
  begin
    TWinControl(Reference) := TWinControl(FrameList.Objects[I]);
    Pages.ActivePage := TRzTabSheet(TWinControl(Reference).Parent);
  end
  else
  begin
    Sheet := TRzTabSheet.Create(pages);
    Sheet.Caption := FSheetCaption ;
    Instance := TWinControl(InstanceClass.NewInstance);
    TWinControl(Reference) := Instance;
    try
      Instance.Create(Sheet);
    except
      TWinControl(Reference) := nil;
      TWinControl(Reference).Parent := nil;
      raise;
    end;
    FrameList.AddObject(InstanceClass.ClassName, Instance);
    SheetList.Add(Sheet.Caption);
    Instance.Parent := Sheet;
    Sheet.PageControl := Pages;
    Pages.ActivePage := Sheet;
  end;
end;

Answer 5

TWinControl(Reference)在上面是什么意思？