Delphi通过名字创建类实例

最新推荐文章于 2023-01-30 11:28:15 发布

原创最新推荐文章于 2023-01-30 11:28:15 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #application #string #function

本文介绍了一种在运行时动态注册并创建不同窗体的方法。主要包括：1. 在主窗体创建时注册所有需要的子窗体类；2. 通过按钮点击事件触发创建指定名称的窗体实例；3. 提供了一个通用函数，该函数接收窗体名称作为参数，通过查找类名来创建并显示相应的窗体实例。

1、注册类

procedure TMainForm.FormCreate(

 Sender: TObject);

begin

 RegisterClass(TFirstForm);

 RegisterClass(TSecondForm);

 RegisterClass(TThirdForm);

end;

2、调用例字

procedure TMainForm.CreateFormButtonClick(

 Sender: TObject);

var

 frmName : string;

begin

 frmName := 'TFirstForm';

 CreateFormFromName(s);

end;

3、通过名字创建类实例

function CreateFormFromName(

 const FormName : string):TForm;

var

 frmClass : TFormClass;

 frm : TForm;

begin

 frmClass := TFormClass(FindClass(FormName));

 frm := frmClass.Create(Application);

  frm.Show;

  result := frm;

end;

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

qinxiongwei

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Delphi 动态创建类

xhfbx的博客

07-24

676

昨天在看 Java Web 开发时有看到servlet 通过反射动态创建类，想到Delphi中能否实现。环境 Win10 x64 , Delphi 10.4 需引用System.Rtti ；发现 private 下的function GetXY:Integer 没有获取到，why? Rtti设计就这样？ unit untTest; interface uses Classes,SysUtils,Dialogs; type TTestClass = class(TPer...

DELPHI 动态创建按钮 BUTTONG

02-21

我们可以通过new关键字实例化这个类来创建一个新的按钮对象。以下是一个简单的步骤： 1. **声明变量**：首先，在你的代码中声明一个TButton类型的变量，这将是你的动态按钮。例如： ```delphi var DynamicButton...

参与评论您还未登录，请先登录后发表或查看评论

delphi注册类信息根据类名创建实例

03-12

1994

initialization RegisterClass(TTestSub1); finalization UnregisterClass(TTestSub1); var obj : TTest; clsName = 'TTestSub1'; obj := TTestClass(FindClass(clsName)).Create RegisterClasses([T

Delphi 高精度计时

小印丶的笔记

11-08

1344

高精度计时器，计时精度是根据自己电脑硬件配置决定的，我目前的可以精确到 0.1 微秒。

在delphi中如何动态建立类的实例

一个被知识诅咒的人

05-10

1433

本文为原创，如需转载，请注明作者和出处，谢谢！在面向对象语言中，用两种方法建立类的实例：静态建立和动态建立。静态建立就是在程序中显式地建立类的实例，如c1 =TClass1.Create()。而动态建立是在只知道类名的前题下建立类的实例。动态建立在实现上要比静态建立更灵活，因为动态建立无需引用被建立类，并且更容易实现如多态等面向对象特性。一、动态

根据字符串类名动态创建对象

sx5486510的专栏

10-23

2750

原文地址：http://blog.youkuaiyun.com/dadalan/article/details/4037510

多款Delphi MVC框架应用实例.rar

07-10

在这些实例中，你可以学习到如何定义模型类来存储和操作数据，创建控制器来处理用户交互，并设计视图来展示信息。你可能还会发现如何通过事件驱动编程来连接模型和视图，以及如何编写单元测试来验证代码的正确性。 ...

Delphi开发Android蓝牙通信实例教程解析

标题“Android实例-Delphi开发蓝牙官方实例解析(XE10+小米2+小米5)”指的是使用Delphi编程语言，在XE10环境下开发的一个具体实例，该实例演示了如何利用Delphi创建一个Android应用程序，该程序使用蓝牙技术在设备间...

给一个delphi通过“创建共享内存区“来实现A程序改变B程序窗口位置与大小的全套实例源码

最新发布

07-31

以下是完整的 Delphi 实现方案，通过共享内存实现程序A控制程序B的窗口位置和大小： #### 公共单元定义（CommonUnit.pas） ```delphi unit CommonUnit; interface uses Windows, Messages; const WM_WINDOW_...

Delphi跨进程访问VCL对象实例化方法

标题“Delphi 跨进程实例化对象”所指的并非传统意义上的在同一个进程中通过`Create`方法动态创建对象，而是探讨如何在一个独立的进程中访问或操作另一个进程中由VCL创建的对象实例，尤其是诸如`TComponent`及其...

Delphi将TableToClass 表文件转换成类文件.rar

07-10

Delphi将TableToClass 表文件转换成类文件，//刷新数据库procedure RefreshDB; 　　 //读取数据库名称列表　　 function ReadDBNameList: TStringList; 　　 //读取数据表名称列表　　 function ReadTableNameList: TStringList; 　　 function TableToClassInfo(ATableName: string): TStrings; 　　 //取得SQLServer字段的类型，返回相应Delphi变量类型　　 function GetColumnType(AType: integer): string; 　　 //取得SQLServer字段的类型，返回相应字符串　　 function GetDBColumnType(AType: integer): string; 　　 //仅生成类信息　　 procedure GenerateClassInfo; 　　 //生成Unit文件　　 procedure GenerateUnitFile; 　　 procedure TableToClassInfo1(ATableName: string; var AClassList1, AClassList2: TStringList); 　　 //取得保存的文件名，没有扩展名　　 function GetFileName(AFileName: string): string; 　　 //保存文件　　 procedure SaveToFile(AList: TStringList = nil); 　　 //取取选择数据表的数量

delphi 用法示例变量声明、过程、函数（1）

yhj68100055的博客

01-30

417

delphi 用法示例变量声明、过程、函数（1）

Delphi XE增强的RTTI妙用－－动态创建包中的窗口类

weixin_30817749的博客

02-04

125

以前要在运行时创建package中的form类，必须要在form单元文件中这样注册类： Initialization RegisterClass(TForm3);Finalization UnRegisterClass(TForm3); 然后在调用模块中，通过FindClass或GetClass函数返回一个TPersistentClass，再通过此类引用创建窗口类： AClas...

Delphi-记录类型record的使用

m0_52389829的博客

03-26

3036

1-案例代码（控制台应用程序） program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; // 定义一个结构类型 type Tpeople = record Name :string; Age:Integer; Sex:string; end; var people:Tpeople; begin with people do begin Name := '工藤新一'; A

Delphi中创建类的实例与定义一个变量引出的问题

好记性不如烂笔头

03-28

3891

在Delphi中按值传递的函数（过程）是这样定义的：procedure fillsomething (Xvalue : integer)按值传递是无法改变实参的值的。按地址传递的函数（过程）是这样[定义的：procdeure fillsomething (Var Xvalue : integer)按地址传递是可以改变实参的值的。可是由于Delphi中向系统申请一个变量和向系

Delphi记录类型

敦格

01-09

5125

Delphi记录类型

delphi中对象的create和free

lynnelxl的专栏

12-23

822

在D中每个应用程序可以获得的内存空间分为两种：堆（heap）和栈（stack）。堆又称为“自由存储区”，其中的内存空间的分配与释放是必须由程序员来控制的。例如，用GetMem函数获取了一定大小的内存空间，则在使用完后，必须调用FreeMem函数将空间释放，否则就会发生所谓的“内存泄漏”。“借债还钱，天经地义”。栈又称为“自动存储区”，其中的内存空间的分配与释放是由编

Delphi 中的自定义类笔记（一）

狂疯庵Blog

05-14

2296

Delphi 中的自定义类笔记（一）类的声明有两种声明办法一、自定义类的父类delphi内建类type 类名 = class父类)( 成员表达式end;（1）保留字Class说明该类是dephi内建类，将继承父类的属性和方法（2）“父类”默认是delphi的祖先类Tobject二、完全自定义的类Type 类名 = object父类)( 成员表达式

DEPHI中tform类的构造函数与FORMCREATE的关系

diligentcat的专栏

02-25

1466

formCreate取決于OldCreateOrder屬性設定： 若為true，在構造函數里面觸發； 若為False，則在AfterConstructor里面執行 formshow取決于Visible屬性的設定： SetVisible——>發送組件消息Perform(CM_VISIBLECHANGED)——>觸發wincontrol.UpdateControlState——>若是Form觸發 UpdateShowing——>發送組件消息