【例子介绍】
本实例通过使用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
评论