Delphi在Webbrowser上绘制图像
2015-11-26 20:43
477 查看
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
相关文章推荐
- 内存共享【Delphi版】
- Delphi十进制和十六进制互转
- Delphi Help
- Delphi反汇编内部字符串处理函数不完全列表
- delphi 数据连接规范
- Delphi New,Getmem,ReallocMem联系与区别
- 去掉delphi XE8或者更高版本编辑器自带的begin end之间的线条
- RAD Studio, Delphi, C++Builder限时年终优惠活动
- Delphi中使用Office中VBA的优缺点
- Delphi中控制VBA 宏
- Delphi 与 Word_VBA
- Delphi中如何调用Excel VBA
- 201601 DELPHI_强制类型转换As
- Delphi 10 Seattle FireDAC 连接池配置过程
- Delphi 技巧改造HINT的输出方式
- delphi中需要熟悉的知识点
- Delphi 常用API 函数(好多都没见过)
- delphi7调用JAVA RESTFUL接口
- Delphi 更改文件时间
- C#生成DLL以及Delphi调用