巧妙利用TWebBrowser让程序直接显示网络图片(Delphi)

最近遇到这样的开发需求: 需要显示的图片来自网络, 只知道其 URL 地址. 要在程序上展示的话, 难道需要先把图片下载下来再载入 TImage 里吗? 这样还要自己去实现文件下载并控制其相关流程, 岂不是太麻烦了! 于是马上想到了 TWebBrowser 控件, 何不用它来显示, 把数据下载的事都交给浏览器模块, 这样就轻松多了嘛.

把 TWebBrowser 作为图片展示控件来用, 想要达到一个比较好的效果的话, 则需要解决以下问题:

1. 图片要能充满整个客户区, 有边距(默认是有的!)就不好看了.

2. 不能有滚动条出现, 除非因为图片很大而确实需要. (我这里只用来显示一些小图片, 所以我不想要滚动条.)

3. 不能出现浏览器的上下文菜单(右键菜单).

以上问题可以通过 HTML + JavaScript 控制实现.

所以这里需要一个页面模板, 一个"无边距", "无滚动条", "无菜单"的页面模板.

直接贴代码, 其中的具体技术实现就不多解释了, 有兴趣的自己研究看看.

<style>
body {
  border: none;
  margin: 0px;
  overflow: hidden;
}
</style>
<script language="JavaScript">
//<!--
if (window.Event)
  document.captureEvents(Event.MOUSEUP);
function nocontextmenu() {
  event.cancelBubble = true;
  event.returnValue = false;
  return false;
}
function norightclick(e) {
  if (window.Event) {
    if (e.which