发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 指定透明度的窗体
发信站: 哈工大紫丁香 (2002年01月19日15:44:13 星期六), 站内信件

摘　要：使窗体具有指定百分比透明度
关键字：窗体 透明
类　别：网络
CoDelphi.com版权所有，未经允许，不得进行任何形式转载
TMyForm = class (TForm);   TrackBar1: TTrackBar; //.. private  FColorKey : T
COLOR; end; const  // 使用crKey作为透明色  LWA_COLORKEY = 1;  // 使用bAlpha指
定层覆盖窗口的透明度  LWA_ALPHA = 2;  WS_EX_LAYERED = $80001; implementation
 {$R *.DFM} // SetLayeredWindowAttributes函数设定层覆盖窗口的透明度颜色// 注
意：该函数只能在Windows 2000和NT平台使用function SetLayeredWindowAttributes(
                                    // 层覆盖窗口的句柄                     
               Wnd: hwnd;                                    // COLORREF值的
指针                                    crKey: ColorRef;                    
                // 描述层覆盖窗口不透明度的Alpha值                          
          Alpha: Byte;                                    // 指定操作       
                             // LWA_COLORKEY or LWA_ALPHA                   
                  // 可以为这参数中的一个或多个：                           
         dwFlags: DWORD): boolean;                                    stdcal
l; external 'user32.dll'; procedure TMyForm.TrackBar1Change(Sender: TObject)
; // Trackbar.Position 范围 1-255... begin  SetWindowLong (Handle, GWL_EXSTY
LE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);  SetLayeredWindowA
ttributes (Handle, ColorToRGB(FColorKey), TrackBar1.Position , LWA_ALPHA); e
nd;
投稿人：grhunter　投稿日期：2002-1-1 11:30:00

--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]