如何在TMS Web Core for Delphi 上为窗体添加背景图像

wa7juj8i  于 2023-10-18  发布在  其他
关注(0)|答案(1)|浏览(120)

我试图通过 Delphi 代码在TMS Web Core上完成此操作,其中可以给予表单一个背景图像。
这是在CSS中的实现方式:

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

我希望这是在 Delphi 完成。我希望这个图像被加载时,形式被创建。
我尝试了GetFormImage,但这是采取什么是已经在形式的图像。

mftmpeh8

mftmpeh81#

在窗体的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属性。

相关问题