zoukankan      html  css  js  c++  java
  • Delphi在Webbrowser上绘制图像

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls, OleCtrls, IEBrowser;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        CppWebBrowser1: TCppWebBrowser;
        procedure FormCreate(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
        OldMessage: TWndMethod;
        procedure OleMessage(var Msg: TMessage);
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      CppWebBrowser1.Navigate('www.baidu.com');
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      //WebBrowser1.Navigate('www.baidu.com');
    end;
    
    procedure TForm1.FormShow(Sender: TObject);
    begin
      OldMessage := CppWebBrowser1.WindowProc;
      CppWebBrowser1.WindowProc := OleMessage;
    end;
    
    procedure TForm1.OleMessage(var Msg: TMessage);
    var
      c: TCanvas;
      bmpBG: TBitmap;
    begin
      OldMessage(Msg);
      if Msg.Msg=WM_PAINT then
      begin
        bmpBG := TBitmap.Create;
        bmpBG.Transparent := true;
        bmpBG.LoadFromFile(ExtractFilePath(Application.ExeName) + 'back.bmp');
        c := TControlCanvas.Create;
        TControlCanvas(c).Control := CppWebBrowser1;
        c.Brush.Style := bsClear;
        c.StretchDraw(c.ClipRect, bmpBG);
      end;
    end;
    
    end.

    http://www.lsworks.net/article/100.html

  • 相关阅读:
    使用RoboCopy 命令[转载]
    取得超级管理员权限
    重置网络命令win7
    ASP.NET Global.asax详解【转】
    逆波兰式算法
    设计模式【转自JackFrost的博客】
    VS2013 F12无法转到函数的定义处,总是从“元数据”获取的问题 ——解决方法
    扩展方法 C#
    委托Func和Action【转】
    添加路由
  • 原文地址:https://www.cnblogs.com/findumars/p/4998870.html
Copyright © 2011-2022 走看看