基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

本实例通过使用GDI 获取半透明图片，然后根据此图片制作任意图片形状的窗口

  //   Set   Window   style
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

  //   perform   the   alpha   blend
  UpdateLayeredWindow(Handle, hdcScreen, nil,@sizeWindow, m_hdcMemory, @ptSrc, 0, @m_Blend, ULW_ALPHA);

【源码目录】

Delphi使用GDI 制作任意图片形状窗口代码

├── DirectDraw.dcu
├── DirectDraw.pas
├── DirectX.inc
├── GDIPAPI.dcu
├── GDIPAPI.pas
├── GDIPOBJ.dcu
├── GDIPOBJ.pas
├── GDIPUTIL.pas
├── Jedi.inc
├── PNG-0891.png
├── Project1.cfg
├── Project1.dof
├── Project1.dpr
├── Project1.exe
├── Project1.res
├── Security - Alert.png
├── Unit1.dcu
├── Unit1.ddp
├── Unit1.dfm
├── Unit1.pas
├── Unit1.~ddp
├── Unit1.~dfm
└── Unit1.~pas

0 directories, 23 files