DIY Delphi 半透明窗体(2)

写文章的时候 脑子有点乱

1. unit uMainForm;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL;
6. type
7. TForm1 = class(TForm)
8. procedure FormCreate(Sender: TObject);
9. procedure FormShow(Sender: TObject);
10. private
11. { Private declarations }
12. public
13. procedure DrawImage(Sender: TObject);
14. { Public declarations }
15. end;
16. var
17. Form1: TForm1;
18. implementation
19. uses xDrawForm;
20. var
21. wwCanvas : TwwCanvas = nil;
22. img_BackGround:   TwwGDIImage= nil;       // 背景图
23. //  img_ProgressBar1:  TwwGDIImage= nil;      // 上滚动条
24. //  img_ProgressBar2:  TwwGDIImage= nil;      // 下滚动条
25. //  img_Lighting:     TwwGDIImage= nil;       // 闪光点
26. {$R *.dfm}
27. procedure TForm1.DrawImage(Sender: TObject);
28. begin
29. TwwCanvas(Sender).wwDrawImage(img_BackGround);
30. end;
31. procedure TForm1.FormCreate(Sender: TObject);
32. begin
33. DoubleBuffered := True;
34. BorderStyle := bsNone;
35. wwCanvas := TwwCanvas.Create();
36. wwCanvas.InitCanvas(872,690);
37. wwCanvas.OnDrawImage := Self.DrawImage;
38. img_BackGround := TwwGDIImage.Create();
39. img_BackGround.CreateImageNormal('BackGround.png',0,0,872,690);
40. end;
41. procedure TForm1.FormShow(Sender: TObject);
42. begin
43. wwCanvas.RePaint(Self.Handle);
44. end;
45. end.

http://blog.csdn.net/warrially/article/details/8490226