frmSPOut :TFrmOut;
dForm : TPersistentClass;
begin
dForm := GetClass(TFrmSentOut);
frmSPOut := TFrmOut(dForm.Create).Create(self);
end;
问TFrmOut(dForm.Create).Create(self)怎么理解？这里dForm.Create创建了什么？
-
等级
本版专家分：8结帖率 100% -
var
frmSPOut :TFrmOut;
dForm : TPersistentClass;
begin
dForm := GetClass(TFrmSentOut);
frmSPOut := TFrmOut(dForm.Create).Create(self);
end;
问TFrmOut(dForm.Create).Create(self)怎么理解？这里dForm.Create创建了什么？展开阅读全文
-
等级
本版专家分：5037 -
应该是dForm := GetClass(‘TFrmSentOut’);//有引号
GetClass返回指定的类（已注册），dForm.Create其实等同于dForm（GetClass已经Create了dForm，dForm.Create中什么也没做），然后用该类生成一个实例，这么做可以在窗体单元注册窗体类，而主窗体不必uses一大堆单元
-
等级
本版专家分：5037
-
应该是dForm := GetClass(“TFrmSentOut”);//有引号，string型
也可用FindClass
-
等级
本版专家分：8
-
原代码是有引号的
我主要是不懂dForm.Create 产生了什么？ 如果只用dForm行吗？
-
等级
本版专家分：8
-
为什么只用dForm不行？
-
等级
本版专家分：83120勋章
-
- 银牌 2001年12月 总版技术专家分月排行榜第二
-
-
红花
2002年5月 Delphi大版内专家分月排行榜第一
2002年1月 Delphi大版内专家分月排行榜第一
-
-
黄花
2007年11月 .NET技术大版内专家分月排行榜第二
2007年1月 Delphi大版内专家分月排行榜第二
2006年12月 Delphi大版内专家分月排行榜第二
2006年10月 Delphi大版内专家分月排行榜第二
2002年8月 Delphi大版内专家分月排行榜第二
2002年6月 Delphi大版内专家分月排行榜第二
2001年12月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2002年4月 Delphi大版内专家分月排行榜第三
-
-
//类也是一种对象
procedure TForm1.Button1Click(Sender: TObject);
var
vForm: TForm;
vFormClass: TFormClass;
begin
RegisterClasses([TForm1]); //注册类
vFormClass := TFormClass(GetClass('TForm1')); //找到一个持久性类并强制转换成TFormClass
if not Assigned(vFormClass) then Exit;
vForm := TForm(vFormClass.Create(Self));
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;
UnRegisterClasses([TForm1]); //注消类
end;
procedure TForm1.Button2Click(Sender: TObject);
var
vPersistentClass: TPersistentClass;
vForm: TForm;
begin
RegisterClasses([TForm1]); //注册类
vPersistentClass := GetClass('TForm1');
if not Assigned(vPersistentClass) then Exit;
vForm := TForm(vPersistentClass.Create).Create(Self);
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;
UnRegisterClasses([TForm1]); //注消类
end;
procedure TForm1.Button3Click(Sender: TObject);
var
vPersistentClass: TPersistentClass;
vForm: TForm;
begin
RegisterClasses([TForm1]); //注册类
vPersistentClass := GetClass('TForm1');
if not Assigned(vPersistentClass) then Exit;
vForm := TFormClass(vPersistentClass).Create(Self);
try
vForm.Left := TForm(vForm.Owner).Left + 10;
vForm.Top := TForm(vForm.Owner).Top + 10;
vForm.ShowModal;
finally
vForm.Free;
end;
UnRegisterClasses([TForm1]); //注消类
end;
-
等级
本版专家分：83120勋章
-
- 银牌 2001年12月 总版技术专家分月排行榜第二
-
-
红花
2002年5月 Delphi大版内专家分月排行榜第一
2002年1月 Delphi大版内专家分月排行榜第一
-
-
黄花
2007年11月 .NET技术大版内专家分月排行榜第二
2007年1月 Delphi大版内专家分月排行榜第二
2006年12月 Delphi大版内专家分月排行榜第二
2006年10月 Delphi大版内专家分月排行榜第二
2002年8月 Delphi大版内专家分月排行榜第二
2002年6月 Delphi大版内专家分月排行榜第二
2001年12月 Delphi大版内专家分月排行榜第二
-
- 蓝花 2002年4月 Delphi大版内专家分月排行榜第三
-
-
dForm: TPersistentClass; //她的类型是TPersistentClass不是TFormClass
- TCustomForm和TForm及TPersistentClass类有什么区别？什么时候用哪个？
TForm是TCustomForm的子类，他们的区别是TForm公布了一些TCustomform没有...TPersistentClass是原类，即TPersistent类的类。用于处理TPersistent为变量使用的。例如，当一个类不确定的时候，就可以定义为TPersist...
- 关于PaxCompiler字符串注意的问题
继续我的PaxCompiler游戏脚本创作,发现个问题,在PaxCompiler脚本里面定义一个类(不是主脚本),主脚本引用这个定义类的脚本,返回一个字符串, 这个字符串显示出来是乱码, 如果再主脚本里面定义,对话框显示出来就不是...
- Delphi使用FindClass实现动态建立对像（有点像反射）
相关资料：http://www.blogjava.net/nokiaguy/archive/2008/05/10/199739.html 1 { 2 http://www.blogjava.net/nokiaguy/archive/2008/05/10/199739.html 3 在delphi中动态建立类的实例可分为4步。 ... 4 1....
- vcl架构中TPersistent类的学习
TPersistent类来源TObject类，在Delphi中的定义如下:{$M+} TPersistent = class(TObject) private procedure AssignError(Source: TPersistent); protected procedure AssignTo(Dest: TPersistent);...
- [转]关于delphi的RTTI
⊙RTTI简介 ⊙类(class)和VMT的关系 ⊙类(class)、类的类(classofclass)、类变量(classvariable)的关系 ⊙TObject.ClassType和TObject.ClassInfo ⊙is和as运算符的原理 ⊙TTypeInfo–RTTI信息的结构 ...
- Delphi XE程序设计系列 1-主从架构, 多层到JSON和REST
Delphi XE程序设计系列 1-主从架构, 多层到JSON和REST
- Delphi 的RTTI机制浅探(二)
Delphi 的RTTI机制浅探(二)
- Delphi的组件读写机制
Delphi的组件读写机制（一） 一、流式对象(Stream)和读写对象（Filer）的介绍 在面向对象程序设计中，对象式数据管理占有很重要的地位。在Delphi中，对对象式数据管理的支持方式是其一大特色。...
- DataSnap 2009 系列之三 （生命周期篇）
DataSnap 2009 系列之三 （生命周期篇）
- 根据.DFM文件动态生成窗体以及在之前先必须注册窗体中使用到的类
根据.DFM文件动态生成窗体之前要先注册窗体中使用到的类。 在脚本中要使用窗体中的控件对象之前也要先注册这些控件对象。 unit UClass;{$DEFINE EHLIB}{$DEFINE RAIZE}{$DEFINE DBANYWHERE}{$DEFINE TMS}...
- datasnap——动态注册服务类 datasnap——动态注册服务类 在DataSnap的应用程序时，...通常的做法是使用DSSer
datasnap——动态注册服务类 ...通常的做法是使用DSServerClass组件，但有些时候，我们要做到在运行时加载。下面代码实现的类TSimpleServerClass从TDSServerClass继承，超载了Create方法并且增加了Ser
- 关于Delphi包的说明
最近用delphi做一个东东，整个东东由多个子程序组成，正好适合使用链接运行期包。翻了好一会儿大富翁，找到一篇好文章，转帖一下。 顺便问一下，这年头还有人在用Delphi开发项目吗？ 一、什么是包？ Delphi...
- delphi TPersistent类
TPersistent类 TPersistent类是由TObject直接派生的。凡是由TPersistent派生的对象都能够进行流操作。 因为所有的组件都是由TPersistent派生的，所以它们都具有流属性。TPersistent没有定义特殊的属性或事件，...
- Delphi 的RTTI机制浅探 (二)
⊙ GetObjectPropClass 函数 ============================================================== GetObjectPropClass 函数用于返回对象类型的属性所属的类(class)。 function GetObjectPropClass(Instance: TObject;...
- Delphi类和组件-TPersistent 类
[摘要]TPresistent 类的定义很简单，但是它的意义却不简单，它在 TObject 的基础上对对象做了进一步的强化，本文介绍Delphi类和组件之TPersistent类。 TPersistent 类继承自 TObject 类，在 Delphi 中的定义...
- Delphi在运行时注册Datasnap服务类
当我们 When we are working to create a DataSnap application we need to register the Server classes in order to provide access to the client application to the server methods. The natural way is to ...
- TPersistent类
TPersistent类来源TObject类，在Delphi中的定义如下: {$M+} TPersistent = class(TObject) private procedure AssignError(Source: TPersistent); ... procedure AssignTo(Dest: TPersistent);...
- bpl 使用之我见
作者：陈晓兵 , 写在前面 在此不再赘述bpl与dll的比较，只介绍bpl的动态调用。如需转载敬请保留原版作者信息， 及实现部分的完整性， 开始----------------------------------------> ... {$WEAKPACKA
- 在运行注册DataSnap服务器类时发布provider
A while ago I published a blog post about How to register DataSnap Server Class in runtime with Delphi, after that I got some feedback mentioning the source code I provided just publishes the ...
- Delphi之TPersistent类
TPersistent类 TPersistent类是由TObject直接派生的。凡是由TPersistent派生的对象都能够进行流操作。因为所有的组件都是由TPersistent派生的，所以它们都具有流属性。TPersistent没有定义特殊的属性或事件，...
- bpl 使用之我见
写在前面 在此不再赘述bpl与dll的比较，只介绍bpl的动态调用。如需转载敬请保留原版作者信息， 及实现部分的完整性，开始----------------------------------------> 实现过程 创建一个接口单元 {$...
- bpl 使用之我见 作者：陈晓兵 lead001@126.com, lead@people.com.cn
bpl 使用之我见 作者：陈晓兵 lead001@126.com, lead@people.com.cn写在前面 在此不再赘述bpl与dll的比较，只介绍bpl的动态调用。如需转载敬请保留原版作者信息， 及实现部分的完整性，开始----------------------...
- 多层数据库应用基于Delphi DataSnap方法调用的实现（三）对象池技术
如果我们把业务对象实例放到对象池中集中存放，调用方法时随用随取，方法结束即放回池中。这样就可以实现业务对象实例服务于不同的客户端调用请求。更重要的是，利用对象池，能够最大化服务器各种资源的
- DataSnap基础
1. DATASNAP 历史 作为MIDAS起始于Delphi3，Delphi4是MIDAS II，Delphi5中是MIDASIII...从Delphi6开始改名为DataSnap,直到D2007这个框架一直在使 用.D2009重新架构了DataSnap—移除COM依赖,使用TCP/IP以更轻量级的方
- RTTI（五）相关函数3【转自大富翁】
GetFloatProp / SetFloatProp 函数 GetFloatProp 用于获得浮点型属性值。它将 Single(4 bytes)、Double(8 bytes)、Comp(8 bytes)、Currency(8 bytes) 类型的浮点数属性转换为 Extented(10 bytes) 类型返回。...
- 数学建模30种算法大全
数学建模最常用的30种算法！ 全国大学生数学建模竞赛创办于1992年，每年一届，已成为全国高校规模最大的基础性学科竞赛，也是世界上规模最大的数学建模竞赛。2018年，来自全国34个省/市/区(包括香港、澳门和台湾)及美国和新加坡的1449所院校/校区、42128个队（本科38573队、专科3555队）、超过12万名大学生报名参加本项竞赛。
- 常见30种数学建模模型
常见的30种数学模型，比较详细，非常适合搞数学建模的学生使用
- EXCEL VBA编程（excel办公高手必经之路）
宏基础 VBA编程基础 常用语句（分支、循环语句的基础及应用） VBA结合工作表的函数功能的应用等 如果您会了所有的excel技能都不能解决工作的数据问题。那请选择VBA技术完成。本季主要讲解关于VBA的基础知识。为走向更高阶的excel技术打下基础。为更高效的办公打下基础。
- matlab教程ppt(完整版).pdf
MATLAB信号处理详解 结合MATLAB最新版本系统地介绍信号处理及现代信号处理或者非平稳信号处理(包括信号处理、阵列信号处理、时频分析及高阶谱分析)的基本理论及在工程应用中的一些基本方法；详细地介绍MATlLAB工具箱函数的用法；最后结合一些应用实例，说明基于MATLAB进行分析与设计的方法。 《MATLAB信号处理》首次将信号处理涉及的各种MATLAB工具箱全面加以说明分析，简明扼要地介绍相关领域的基本概念和基本理论，重在讲述有关基本理论和物理背景，避开繁复的推导和中间过程，结合编程应用介绍工具箱函数的功能及用法，并且通过各种应用实例阐述如何利用MATLAB工具箱来解决工程应用问题。
- C语言实战之学生成绩管理系统
通过C语言开发一个简单的项目：学生成绩管理系统 1.C语言知识点的综合运用，加深对C语言的理解，学会结构化编程的思想 2.熟悉企业软件开发的基本流程，树立软件工程的思维和概念 3.具备独立开发一个小型甚至中型软件的能力：XX管理系统 4.具备企业初级工程师的能力和水平，实现从学生到工程师的初级跨越 关注更多新教程，可以关注微信号：armlinuxfun（嵌入式工程师自我修养） 让学生通过一个C语言项目的开发，熟悉软件工程流程，树立软件工程和模块化编程的概念和思维，具备独立开发一个小型甚至中型C语言项目的能力。完成从学生到企业初级工程师的零基础跨越。