如何在 TMS Web Core for Delphi 上向表单添加背景图像

Question

我试图通过 Delphi 代码在 TMS webcore 上完成此操作，其中可以为表单提供背景图像， 这就是 CSS 中的做法

body {
background-image: url("material.jpeg");
}

我希望在 delphi 中完成此操作 我希望在创建表单时加载此图像。

我尝试了 GetFormImage，但那是拍摄已经是表单的图像。

Answer 1

在表单的

OnShow

事件中，您可以使用以下代码将表单的背景更改为图像：

procedure TMyForm.WebFormShow(Sender: TObject);
var
  ImgURL: String;
  StyleImg: String;
begin
  ImgURL := 'https://shaunroselt.com/assets/img/hero-bg.jpg';

  StyleImg := ';background-image: url('+ImgURL+');';
  StyleImg := document.body.getAttribute('style') + StyleImg;

  document.body.setAttribute('style',StyleImg);
end;

代码获取表单（body 元素）并为其设置 CSS 样式

background-image

属性。