因此,我必须手动实现VCL样式.因此,我将两个必要的单元Vcl.Themes和Vcl.Styles添加到我的项目的初始化单元(在这种情况下与项目的主单元不同),并且基本上将工作应用程序中的代码复制到这个新应用程序中.

这是该项目的主要单位：

program MyServiceApplication;

uses
  uMyService in 'uMyService.pas' {MyService: TService},uMyServiceMain in 'uMyServiceMain.pas',uMyServiceInit in 'uMyServiceInit.pas',uMyServiceTest in 'uMyServiceTest.pas' {frmMyServiceTest};

{$R *.RES}

begin
  RunMyService;
end.

然后在项目的初始化单元中：

unit uMyServiceInit;

interface

uses
{$IFDEF TESTAPP}
  Vcl.Forms,Vcl.Themes,Vcl.Styles,uMyServiceTest,{$ELSE}
  Vcl.SvcMgr,uMyService,{$ENDIF TESTAPP}
  uMyServiceMain
  ;

procedure RunMyService;

implementation

procedure RunMyService;
begin
{$IFDEF TESTAPP}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Carbon'); //<--- WILL NOT RUN - STYLE DOES NOT EXIST
  Application.Title := 'My Windows Service Application';
  Application.CreateForm(TfrmMyServiceTest,frmMyServiceTest);
{$ELSE}
  if not Application.DelayInitialize or Application.Installing then
    Application.Initialize;
  Application.CreateForm(TMyService,MyService);
{$ENDIF TESTAPP}
  Application.Run;
end;

end.

问题是,当应用程序运行时,我收到错误样式’Carbon’无法找到.只是因为这种风格尚未被包含并编译到应用程序中.

如何手动将此样式编译到此应用程序中,以便VCL样式可以实现它？

PS：初始化在一个单独的单元中的原因是因为如果条件在应用程序的主单元内实现,IDE将破坏代码.

编辑

我尝试了一件事：我打开了一个工作项目的.dproj文件并搜索了这个样式的碳,希望在那里找到一些配置,因为工作项目使用了这种风格,但没有运气.该文件中的任何位置都不存在该单词.