How do I dynamically load a CSS file in a TMS WEB Core Website using Delphi?

Question

How do I dynamically load a CSS file in a TMS WEB Core Website using Delphi?

55 views Asked by Shaun Roselt At 22 March 2024 at 14:31

What's the best way to dynamically insert CSS files into my TMS WEB Core website using Delphi?

I want to load a certain CSS file depending on the theme (dark/light). So whenever the website opens, then it needs to dynamically load the correct CSS file.

How can this be achieved?

Original Q&A

There are 1 answers

**Shaun Roselt** · Answer 1 · 2024-03-22T14:31:20+00:00

The TApplication class has an InsertCSS and RemoveCSS function that can be used for this.

So as an example, let's say I want to dynamically load Bootstrap into my application with a button click, I could do this:

procedure TfrmMain.WebButton1Click(Sender: TObject);
begin
  Application.InsertCSS('MyCSS', 'https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css');
end;

You could also do this directly in the .dpr file such as:

program 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.

Running the above examples would insert the following line of code into the <head> tag on your page:

<link id="MyCSS" rel="stylesheet" href="https://cdn.jsdelivr.net/npm/[email protected]/dist/css/bootstrap.min.css">

TechQA.

How do I dynamically load a CSS file in a TMS WEB Core Website using Delphi?

There are 1 answers

Related Questions in CSS

Related Questions in DELPHI

Related Questions in DYNAMIC

Related Questions in TMS

Related Questions in TMS-WEB-CORE

Popular Questions

Popular Tags

Trending Questions