【delphi】常见类的定义方法！

一般定义类不同

TMyclass = class

private

.....

public

.....

end;

定义子类

TSonclass = class（TMyclass）

private

.....

public

.....

end;

 

类的抽象

Tclassclass = class of TMyclass;

 

实例：动态创建控件

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, StdCtrls;
 8 
 9 type
   TMyclass = class of Tcontrol;
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 function CreateCon(obj:TMyclass;Name1:string;x,y,w,h:integer):Tcontrol;
 
 begin
   result := obj.Create(Form1);
   result.Parent := Form1;
   result.Name :=  Name1;
   result.SetBounds(x,y,w,h)  ;
   result.Visible := true;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
     CreateCon(TEdit,'edit10',50,50,100,50);
 end;
 
 end