unit1.pas

嘿嘿,大侠看到不要见笑呀... 大家都知道使用DLL的好处.于是我就想把FORM封装到DLL里面去. 到网上找,发现是MDI和模式窗体的,非模式的也有很多问题.便想自己解决这个问题. 原来是用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lst1: TListBox;
    rg1: TRadioGroup;
    lst2: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function GetDllFormClass(App:THandle;frm:THandle):TFormClass;stdcall;
implementation

{$R *.dfm}
function GetDllFormClass(App:THandle;frm:THandle):TFormClass;stdcall;
begin
//传进来的参数原来是为了和主程序沟通,不是必要的,这里就不管它了
Result:=TForm1;
end;
end.