somecontrol.font:=othercontrol.font;//
我没有这句话,,我的主程序调用dll很简单。就是把dll的窗体作为MDI窗体调用。
传入参数为Application,Screen没有Fonts啊?源程序就是。
library Reportdll;
uses
SysUtils,
Classes,
Forms,
p_19 in 'source/p_19.pas' {frmMain},
p_20 in 'source/p_20.pas' {FrmImageComments},
p_18 in 'source/p_18.pas' {frmReport};
{$R *.res}
function ReportShow(App: TApplication; aScreen: TScreen): Boolean; stdcall;
begin
//try
Application := App;
Screen := aScreen;
frmMain := TfrmMain.Create(nil);
frmMain.Show;
//frmMain.ShowModal;
//finally
//frmMain.Free;
//end;
Result := True;
end;
exports
ReportShow;
begin
end。