DLL:cannot assign a tfont to a tfont 作者:佚名 技巧来源:不详 点击数:167 更新时间:2008-5-22 /> DLL:cannot assign a tfont to a tfont 编程论坛 楼主 DLL调用弹出这个提示: cannot assign a tfont to a tfont DLL: Delphi(Pascal) code var DLLApp: TApplication; DLLScr: TScreen; //建立一个DLL窗体,传入应用和桌面和其它参数,返回一个窗体对象 function CreateBuyForm(App: TApplication; Scr: TScreen;var DataMdl: TfrmDataModule):TForm;stdcall; begin Application := App;//将DLL的应用和桌面用主调程序的代替. Screen := Scr; frmDataModule:= DataMdl; Application.CreateForm(TfrmBuy, frmBuy);//这里出错 //建立窗体,可以是普通窗体 result:=frmBuy; end; //释放DLL资源 procedure ExitDLL(Reason: Integer); begin if Reason = DLL_PROCESS_DETACH then begin Application := DLLApp; Screen := DLLScr; end; end; //发布为处部函数 exports CreateBuyForm; begin DLLApp := Application; DLLScr := Screen; DLLProc := @ExITDLL; end. 欢迎转载,但请保留出处,本文章转自[华软网] 原文链接:http://www.huarw.com/program/Delphi/delphi01/200805/1585460.html