DIY Delphi 半透明窗体(2)
来源:互联网 发布:OpenGL Mac framework 编辑:程序博客网 时间:2024/05/22 13:29
写文章的时候 脑子有点乱
unit uMainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public procedure DrawImage(Sender: TObject); { Public declarations } end;var Form1: TForm1;implementationuses xDrawForm;var wwCanvas : TwwCanvas = nil; img_BackGround: TwwGDIImage= nil; // 背景图// img_ProgressBar1: TwwGDIImage= nil; // 上滚动条// img_ProgressBar2: TwwGDIImage= nil; // 下滚动条// img_Lighting: TwwGDIImage= nil; // 闪光点{$R *.dfm}procedure TForm1.DrawImage(Sender: TObject);begin TwwCanvas(Sender).wwDrawImage(img_BackGround);end;procedure TForm1.FormCreate(Sender: TObject);begin DoubleBuffered := True; BorderStyle := bsNone; wwCanvas := TwwCanvas.Create(); wwCanvas.InitCanvas(872,690); wwCanvas.OnDrawImage := Self.DrawImage; img_BackGround := TwwGDIImage.Create(); img_BackGround.CreateImageNormal('BackGround.png',0,0,872,690);end;procedure TForm1.FormShow(Sender: TObject);begin wwCanvas.RePaint(Self.Handle);end;end.
- DIY Delphi 半透明窗体(2)
- DIY Delphi 半透明窗体 (1)
- delphi 半透明窗体类
- delphi 异形窗体可半透明
- 半透明窗体
- 半透明窗体
- 半透明窗体的制作
- 制作半透明窗体
- 半透明的窗体
- 透明,半透明窗体
- WPF 半透明窗体
- 半透明溅显窗体
- QT绘制半透明窗体
- 窗体重绘,半透明
- 14半透明窗体
- VC半透明窗体
- (WPF) 半透明窗体
- C# winform 半透明窗体
- 在jsp中如何取得当前页面完整的URL(带参数)?
- javascript小技巧
- java中删除list重复元素
- jsp中获取前一个页面的url包括参数
- Java List 排序 Collections.sort() 对 List 排序
- DIY Delphi 半透明窗体(2)
- apache配置cgi
- 重新安装D7,命令提示符出现不是内部或外部命令也不是可运行的文件
- matlab 中randn randi rand 的用法以及区别
- 各种排序方法比较
- 解决MyEclipse 编辑或切换到JSP页面时卡的问题
- android Logcat打印格式说明
- 软件测试的原则与注意事项
- indexOf和lastIndexOf在Js中的应用