偶不明白：delphi的type中声明了：tform1:=class(form);button1:=tbutton;等，为什么却在最后又声明：var form1:=tform1,为什么不声明在t

[chris2019]

tell me

[chris2019]

为什么用
type
tform1=class(form)
button1=tbutton
而不用：
tform1=class(form)
tbutton1=class(button)
button1=tbutton

[blazingfire]

To:chris2019(牛虻---最后的匈奴)
－－－－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－－－－－－
TForm1=Class(TForm);
//这句话指是TForm1是从TForm继乘过来的一个子类
Button1=TButton
//这种用法好象没有
TButton1=Class(TButton)
//这句话也是指TButton1是从TButton中继乘过来的一个子类
var
Form1:TForm1;
//这是指定义了一个TForm1类的对象变量。

[chris2019]

偶是说：
Button1=TButton
//这种用法好象没有

为什么不这样用呢？

[blazingfire]

To:chris2019(牛虻---最后的匈奴) :
Button1=TButton 这种用法没有，那么怎么用？

[BossHawk]

可以这样 type Button1 = class(TButton) end;
这表示Button1是一个新的类（不是实例变量），接下来可以
var mybutton1: Button1;

为什么用
type
tform1=class(form)
button1=tbutton
而不用：
tform1=class(form)
tbutton1=class(button) //这里错了Form是一个类，Button不是，TButton是
button1=tbutton //也错了，用TButton1才是

为什么要TForm1而不TButton1呢？
因为你新建一个窗体时，不会（或很少）就一个空窗体吧？你得在里面放上其他东东（控件啦：）），这就是一个继承过程；但是，你会对一个TButton进一步加工吗？基本不会！（有时候是可以的！见后面的说明），所以你不必要用type tbutton1=class(Tbutton); var mybutton1: tbutton1;

特别说明：
tbutton有一个属性tag，大伙可以自由使用，那么你是不是觉得有时候不够用呢？比如你需要一个String型的属性而Hint又已经使用了？呵呵，可以这样：
type
TAdvButton = class(TButton)
private
yourstr: String;
end;

var
MyAdvButtonArr: array of TAdvButton;

然后就可以用了，区别是你要用代码创建新的TAdvButton,不能在设计时生成。

假如你想在设计时就生成，那么把这个TAdvButton作成控件安装上去就行。
怎么作呢？用Delphi的控件生成向导吧，太简单了，不过说起来烦，自己琢磨琢磨！

[liaokuo]

不声明
var
form1 :tform;

也可以用，即使不构造事例，依然可以运行
application.create(Tform,Tform)

[BossHawk]

to liaokuo(辽阔)
写错了吧？这里没有实例化吗？

[ihihonline]

tform1:=class(form);
var form1:=tform1
建议你看一看c++；
类-〉对象-〉事例；

[outer2000]

当然需要声明，前面派生了一个新的TFORM1；而FORM1又是。。

[dancemaple]

type是类型声明，var是变量（包括对象）定义

[liutaoboy]

TForm1是从Form中派生出来的一个类,而Form1是TForm1类型的变量,
这是两个概念,在Type中只是声明类,并没有把它实例化,建议你看一看
有关OOP或Java方面的书

[erickleung]

可能你是惯用basic或c等编程, 随写随编.

Delphi沿用Pascal的体制, 任何物件都先要在定义区内定义,
然後在 implementation 执行区中使用.

正因为有这个规定, Pascal的好处便是较易跟进, 和其编译器
超级快.

[fermium]

同意楼上,另外var form1:Tform1 是戴毅一个实例,这些都是OOP的基础知识哈

[chris2019]

为什么用
type
tform1=class(form)
button1=tbutton
而不用：
tform1=class(form)
tbutton1=class(button)
button1=tbutton

[kinggo]

tform1:=class(form);button1:=tbutton这只不是定一个类
var form1:=tform1是定义一个类的变量也就是对象

[dancemaple]

button1是一个对象（类实例），而tbutton是一个类
还是那句话：看看OOP的书吧

[kinggo]

为什么用
type
tform1=class(form)
button1=tbutton
而不用：
tform1=class(form)
tbutton1=class(button)
button1=tbutton
这样定义也可以
不过没有这个必要

[tf1008]

学习学习