1,593
社区成员
发帖
与我相关
我的任务
分享
<html>
<head>
<title>背景图像 </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body {
background-image: url(images/bg.jpg);
}
.Div1{
background:url("logo.jpg");
}
</style>
</head>
<body>
<table width="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div id = 'bgDiv' class= "Div1" style= "width: 150px; height: 100px ">网页背景A</div></td>
</tr>
</table>
</body>
</html>
var
Elem: IHTMLElement;
begin
memo1.Clear;
Elem := GetElementById(webbrowser1.Document,'bgDiv') as IHTMLElement;
if Assigned(Elem) then
begin
ShowMessage('Tag name = <' + Elem.tagName + '>'#10 +'Tag id = ' + Elem.id + #10 +'Tag innerHTML = "' + Elem.innerHTML + '"');
memo1.Lines.Add(Elem.Style.backgroundImage);
end;
end;