Dll封装窗体

library CallDetail;

uses
  SysUtils,
  Classes,
  ADODB,
  Dialogs,
  ActiveX,
  DishDetail in 'DishDetail.pas' {frmOrderDetail};

function CallDishDetail(Orderid:Integer):Boolean;stdcall;
var
  f:TfrmOrderDetail;
begin
  Result:=False;
  f:=TfrmOrderDetail.Create(nil);
  try
    f.OrderID:=Orderid;
    f.ShowModal;
    Result:=True;
  finally
    f.Free;
  end;
end;

{$R *.res}
exports
  CallDishDetail;
begin
end.

//调用的单元
unit DishDetail;
//由于使用了ADO控件,必须初始化Com组件环境
initialization
  CoInitialize(nil);
finalization
  CoUninitialize;

end.