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.

 

转载于:https://www.cnblogs.com/tk-del/archive/2012/03/23/2413846.html