DIY Delphi 半透明窗体(2)

写文章的时候 脑子有点乱 

 

 

[delphi] view plain copy
 
  1. unit uMainForm;  
  2.   
  3.   
  4. interface  
  5.   
  6.   
  7. uses  
  8.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  9.   Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL;  
  10.   
  11.   
  12. type  
  13.   TForm1 = class(TForm)  
  14.     procedure FormCreate(Sender: TObject);  
  15.     procedure FormShow(Sender: TObject);  
  16.   
  17.   
  18.   private  
  19.     { Private declarations }  
  20.   public  
  21.     procedure DrawImage(Sender: TObject);  
  22.     { Public declarations }  
  23.   end;  
  24.   
  25.   
  26. var  
  27.   Form1: TForm1;  
  28.   
  29.   
  30. implementation  
  31. uses xDrawForm;  
  32. var  
  33.   wwCanvas : TwwCanvas = nil;  
  34.   img_BackGround:   TwwGDIImage= nil;       // 背景图  
  35. //  img_ProgressBar1:  TwwGDIImage= nil;      // 上滚动条  
  36. //  img_ProgressBar2:  TwwGDIImage= nil;      // 下滚动条  
  37. //  img_Lighting:     TwwGDIImage= nil;       // 闪光点  
  38.   
  39.   
  40. {$R *.dfm}  
  41.   
  42.   
  43. procedure TForm1.DrawImage(Sender: TObject);  
  44. begin  
  45.    TwwCanvas(Sender).wwDrawImage(img_BackGround);  
  46. end;  
  47.   
  48.   
  49. procedure TForm1.FormCreate(Sender: TObject);  
  50. begin  
  51.   DoubleBuffered := True;  
  52.   BorderStyle := bsNone;  
  53.   wwCanvas := TwwCanvas.Create();  
  54.   wwCanvas.InitCanvas(872,690);  
  55.   wwCanvas.OnDrawImage := Self.DrawImage;  
  56.   
  57.   
  58.   
  59.   
  60.   img_BackGround := TwwGDIImage.Create();  
  61.   img_BackGround.CreateImageNormal('BackGround.png',0,0,872,690);  
  62.   
  63.   
  64. end;  
  65.   
  66.   
  67. procedure TForm1.FormShow(Sender: TObject);  
  68. begin  
  69.   wwCanvas.RePaint(Self.Handle);  
  70. end;  
  71.   
  72.   
  73. end.  

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

posted @ 2017-02-01 06:33  findumars  Views(429)  Comments(0)  Edit  收藏  举报