万能流化单元,可以反向完美流化任何TComponent组件,并不单单是TForm
标签： TComponent TForm
上传时间： 2015-11-11
上传用户：baiom
该实例着重介绍TForm组件中各种属性设置及其显示效果.
上传时间： 2014-11-29
上传用户：thinode
嘿嘿,大侠看到不要见笑呀... 大家都知道使用DLL的好处.于是我就想把FORM封装到DLL里面去. 到网上找,发现是MDI和模式窗体的,非模式的也有很多问题.便想自己解决这个问题. 原来是用DLL创建一个对象返回,但发现有很多的问题. 想了半天就去寻根问柳吧. 找到了类. 我就想把类封装进DLL,到时简单的返回一个类,然后在主程序里操作不就简单了? 找了半天发现了TFormClass,于是试了试从DLL导出来,像一般的程序一样创建窗体发现成功. 接着我又想看看其他的类是不是也能这样,就拿TFrame来实验. function GetDllFrameClass():TFrame stdcall 第一次是这样声明的,失败.奇怪?! 试了好多次都不行,就想到了TFormClass(Ctrl+左键),进去看看,发现是这样声明的. TFormClass = class of TForm 哎呀,恍然大悟!! class(TFrame) 是声明一个类, 这个类继承了TFrame类 f: TFrame 是一个对象 class of TFrame 声明的是类类型, f:TFrameClass 是一个类. function GetDllFrameClass():TFrame 返回就不是类而是对象了,照TFormClass修改后TFrameClass = class of TFrame 运行...成功,
上传时间： 2013-12-10
上传用户：kiklkook
tsp遗传算法源代码，nit fEA_TSP interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Spin, ComCtrls, uIEA, uITSP, uUtilsEA, uDisplayTSP type TFormGA = class(TForm) PanelFit: TPanel Panel2: TPanel Panel3: TPanel PanelDisp: TPanel Panel5: TPanel Panel6: TPanel Label2: TLabel EditNoCities: TSpinEdit EditPopulationSize: TSpinEdit EditKill: TSpinEdit EditInversion: TSpinEdit EditTransposition: TSpinEdit EditGens: TSpinEdit ButtonRun: TButton ButtonStep: TButton ButtonCreateCities: TButton ButtonCreatePop: TButton
上传时间： 2015-12-28
上传用户：bjgaofei
unit comm interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SPComm, StdCtrls, ExtCtrls type TFcomm = class(TForm) Comm1: TComm GroupBox1: TGroupBox Memo1: TMemo Memo2: TMemo GroupBox2: TGroupBox Button1: TButton Btn_send: TButton Button2: TButton procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) procedure Btn_sendClick(Sender: TObject) procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer BufferLength: Word) private { Private declarations } public { Public declarations } end
标签： interface Messages Graphics Controls
上传时间： 2016-06-10
上传用户：gxmm
