unit2.pas

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

unit Unit2;

interface

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

type
  TFrame1 = class(TFrame)
    btn1: TButton;
    mmo1: TMemo;
    lbl1: TLabel;
    scrlbr1: TScrollBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
TFrameClass = class of TFrame   ;
function GetDllFrameClass(App:THandle;frm:THandle):TFrameClass;stdcall;
implementation

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