---------------网上转的
在DLL窗体的单元中加入下面几行代码
var
NewFont: TFont;
......
procedure TfrmModal.FormCreate(Sender: TObject);
begin
frmModal.Font := NewFont;
end;
......
initialization
NewFont := TFont.Create;
NewFont.Color := clBlue;
//这里要改什么字体,你自己随便
NewFont.Size := 36;
finalization
NewFont.Free;
NewFont := nil;