双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2002-04-13 11:27:07 430 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

chris2019 墨衍会员 · AI 创作全网分发关注 + 加入社区

比亚迪开放平台接口实战：车身状态监测与智能车联应用开发本文详细介绍了如何利用比亚迪开放平台的车身状态接口进行智能车联应用开发。通过核心类BYDAutoBodyworkDevice，开发者可以安全获取车辆VIN、车门车窗状态、蓄电池电压、方向盘转角等实时数据，并利用监听器实现状态实时响应。文章提供了从SDK集成、接口调用到典型应用场景（如远程车况检查、车队管理）的完整实战指南，助力开发者快速构建基于比亚迪车辆数据的创新应用。阅读详情

tell me

...全文

ChatGPT高效制作PPT：从内容生成到设计优化全流程人工智能技术正在改变传统办公文档的创作方式，其中自然语言处理（NLP）与生成式AI的结合为内容创作带来了革命性突破。以ChatGPT为代表的大语言模型（LLM）能够理解复杂指令并生成结构化内容，其核心原理是通过海量数据训练获得的语义理解和文本生成能力。在办公自动化场景中，这种技术特别适合解决PPT制作中的两大痛点：内容创作耗时和逻辑架构困难。通过精心设计的提示词工程，AI可以快速输出包含核心要点、数据支撑的完整内容框架，甚至直接生成Markdown格式的代码以便快速转换为PPT。对于商业计划、项目汇报等高频阅读详情

chris2019

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

tf1008 2010-06-02

打赏
举报

学习学习

kinggo 2002-04-13

打赏
举报

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

dancemaple 2002-04-13

打赏
举报

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

kinggo 2002-04-13

打赏
举报

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

chris2019 2002-04-13

打赏
举报

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

fermium 2002-04-13

打赏
举报

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

erickleung 2002-04-13

打赏
举报

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

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

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

liutaoboy 2002-04-13

打赏
举报

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

dancemaple 2002-04-13

打赏
举报

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

outer2000 2002-04-13

打赏
举报

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

ihihonline 2002-04-13

打赏
举报

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

BossHawk 2002-04-13

打赏
举报

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

liaokuo 2002-04-13

打赏
举报

不声明
var
form1 :tform;

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

BossHawk 2002-04-13

打赏
举报

可以这样 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的控件生成向导吧，太简单了，不过说起来烦，自己琢磨琢磨！

blazingfire 2002-04-13

打赏
举报

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

chris2019 2002-04-13

打赏
举报

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

为什么不这样用呢？

blazingfire 2002-04-13

打赏
举报

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

chris2019 2002-04-13

打赏
举报

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

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促