嘿嘿,大俠看到不要見笑呀...
大家都知道使用DLL的好處.于是我就想把FORM封裝到DLL里面去.
到網(wǎng)上找,發(fā)現(xiàn)是MDI和模式窗體的,非模式的也有很多問題.便想自己解決這個問題.
原來是用DLL創(chuàng)建一個對象返回,但發(fā)現(xiàn)有很多的問題.
想了半天就去尋根問柳吧.
找到了類.
我就想把類封裝進DLL,到時簡單的返回一個類,然后在主程序里操作不就簡單了?
找了半天發(fā)現(xiàn)了TFormClass,于是試了試從DLL導出來,像一般的程序一樣創(chuàng)建窗體發(fā)現(xiàn)成功.
接著我又想看看其他的類是不是也能這樣,就拿TFrame來實驗.
function GetDllFrameClass():TFrame stdcall
第一次是這樣聲明的,失敗.奇怪?!
試了好多次都不行,就想到了TFormClass(Ctrl+左鍵),進去看看,發(fā)現(xiàn)是這樣聲明的.
TFormClass = class of TForm
哎呀,恍然大悟!!
class(TFrame) 是聲明一個類, 這個類繼承了TFrame類 f: TFrame 是一個對象
class of TFrame 聲明的是類類型, f:TFrameClass 是一個類.
function GetDllFrameClass():TFrame
返回就不是類而是對象了,照TFormClass修改后TFrameClass = class of TFrame
運行...成功,
標簽：
DLL
FORM
MDI
模式
上傳時間：
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
標簽：
tsp
算法
源代碼
上傳時間：
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
