使用 Delphi 将 CSS 文件动态插入到我的 TMS WEB Core 网站的最佳方法是什么？
我想根据主题（深色/浅色）加载特定的 CSS 文件。因此，每当网站打开时，就需要动态加载正确的 CSS 文件。
如何实现这一目标？
TApplicationInsertCSSRemoveCSS举个例子，假设我想通过单击按钮将 Bootstrap 动态加载到我的应用程序中，我可以这样做：
procedure TfrmMain.WebButton1Click(Sender: TObject);
begin
Application.InsertCSS('MyCSS', 'https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css');
end;
您也可以直接在
.dprprogram TestApp;
{$R *.dres}
uses
Vcl.Forms,
WEBLib.Forms,
uIndex in 'uIndex.pas' {frmMain: TWebForm} {*.html};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmMain, frmMain);
Application.InsertCSS('MyCSS', 'https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css');
Application.Run;
end.
运行上述示例会将以下代码行插入到您的
<head><link id="TestingInsertCSS" rel="MyCSS" href="https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css">