生活随笔
收集整理的這篇文章主要介紹了
GDI+用PNG图片做半透明异型窗口
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
unit?Unit1; interface uses??Windows,?Messages,?SysUtils,?Variants,?Classes,?Graphics,?Controls,?Forms,??Dialogs,??GDIPAPI,?GDIPOBJ,?Menus,?StdCtrls; type??TForm1?=?class(TForm)????PopupMenu1:?TPopupMenu;????mniClose:?TMenuItem;????mniChangeSkin:?TMenuItem;????About1:?TMenuItem;????Stayontop1:?TMenuItem;????procedure?FormCreate(Sender:?TObject);????procedure?FormMouseDown(Sender:?TObject;?Button:?TMouseButton;??????Shift:?TShiftState;?X,?Y:?Integer);????procedure?About1Click(Sender:?TObject);????procedure?Stayontop1Click(Sender:?TObject);????procedure?mniChangeSkinClick(Sender:?TObject);????procedure?mniCloseClick(Sender:?TObject);??private????m_Blend:?BLENDFUNCTION;????procedure?SetTransparent(lpSkinFile:?WideString;?nTran:?integer);????????????public????????????end; var??Form1:?TForm1; implementation {$R???*.dfm} procedure?TForm1.FormCreate(Sender:?TObject);begin??BorderStyle?:=?bsNone;??m_Blend.BlendOp?:=?AC_SRC_OVER;???m_Blend.BlendFlags?:=?0;???m_Blend.AlphaFormat?:=?AC_SRC_ALPHA;???m_Blend.SourceConstantAlpha?:=?255;??if?(FileExists(ExtractFilePath(ParamStr(0))?+?'Security?-?Alert.png'))?then????SetTransparent(WideString(ExtractFilePath(ParamStr(0))?+?'Security?-?Alert.png'),?100);????SetWindowPos(Handle,?HWND_TOPMOST,?0,?0,?0,?0,?SWP_NOMOVE?or?SWP_NOSIZE);end; procedure?TForm1.SetTransparent(lpSkinFile:?WideString;?nTran:?integer);var??GPImage:?TGPImage;??GPGraph:?TGPGraphics;??m_Image:?TGPImage; ??m_hdcMemory:?HDC;??hdcScreen:?HDC;??hBMP:?HBITMAP; ??sizeWindow:?SIZE;??rct:?TRECT;??ptSrc:?TPOINT;begin????GPImage?:=?TGPImage.Create();??m_Image?:=?GPImage.FromFile(lpSkinFile); ????hdcScreen?:=?GetDC(0);??m_hdcMemory?:=?CreateCompatibleDC(hdcScreen);??hBMP?:=?CreateCompatibleBitmap(hdcScreen,?m_Image.GetWidth(),?m_Image.GetHeight());??SelectObject(m_hdcMemory,?hBMP); ????if?(nTran?<?0)?or?(nTran?>?100)?then????nTran?:=?100;??m_Blend.SourceConstantAlpha?:=?round(nTran?*?2.55);???GetWindowRect(Handle,?rct); ??GPGraph?:=?TGPGraphics.Create(m_hdcMemory);??GPGraph.DrawImage(m_Image,?0,?0,?m_Image.GetWidth(),?m_Image.GetHeight()); ??sizeWindow.cx?:=?m_Image.GetWidth();??sizeWindow.cy?:=?m_Image.GetHeight(); ??ptSrc.x?:=?0;??ptSrc.y?:=?0; ????SetWindowLong(Handle,?GWL_EXSTYLE,?GetWindowLong(Handle,?GWL_EXSTYLE)?or?WS_EX_LAYERED); ????UpdateLayeredWindow(Handle,?hdcScreen,?nil,@sizeWindow,?m_hdcMemory,?@ptSrc,?0,?@m_Blend,?ULW_ALPHA);????GPGraph.ReleaseHDC(m_hdcMemory);??ReleaseDC(0,?hdcScreen);??hdcScreen?:=?0; ??DeleteObject(hBMP); ??DeleteDC(m_hdcMemory);??m_hdcMemory?:=?0; ??m_Image.Free;??GPGraph.Free;end; procedure?TForm1.FormMouseDown(Sender:?TObject;?Button:?TMouseButton;??Shift:?TShiftState;?X,?Y:?Integer);begin??if?(Button?=?mbLeft)?then??begin????ReleaseCapture();????Perform(WM_SYSCOMMAND,?SC_MOVE?or?HTCAPTION,?0);??end;end; procedure?TForm1.About1Click(Sender:?TObject);begin??MessageDlg('效果還不行吧！'#13+'QQ:3150379',?mtInformation,?[mbOK],?0);end; procedure?TForm1.Stayontop1Click(Sender:?TObject);var??mi:?TMenuItem;??WindowPos:?HWND;begin??mi?:=?Sender?as?TMenuItem;??mi.Checked?:=?not?mi.Checked;??if?mi.Checked?then????WindowPos?:=?HWND_TOPMOST??else????WindowPos?:=?HWND_NOTOPMOST;??SetWindowPos(Handle,?WindowPos,0,?0,?0,?0,?SWP_NOMOVE?or?SWP_NOSIZE);end; procedure?TForm1.mniChangeSkinClick(Sender:?TObject);var??dlgOpen:?TOpenDialog;begin??dlgOpen?:=?TOpenDialog.Create(Self);??dlgOpen.Filter?:=?'PNG???file(*.png)|*.png';??if?(dlgOpen.Execute())?then??begin????SetTransparent(WideString(dlgOpen.FileName),?100);????Invalidate();??end;??dlgOpen.Free;end; procedure?TForm1.mniCloseClick(Sender:?TObject);begin??Close;end; end.
總結
以上是生活随笔為你收集整理的GDI+用PNG图片做半透明异型窗口的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
