DIY Delphi 半透明窗体 (1)

最新推荐文章于 2020-08-31 10:51:52 发布

爱蹄子的羊头

最新推荐文章于 2020-08-31 10:51:52 发布

阅读量2.4k

点赞数

本文链接：https://blog.csdn.net/warrially/article/details/8490217

版权

本文将介绍如何在Delphi编程环境中实现一个具有半透明效果的窗口。内容包括相关技术要点和步骤，帮助读者理解并实践Delphi中的透明窗体技术。

摘要由CSDN通过智能技术生成

写这篇文章的时候脑子有点乱..

unit xDrawForm;

interface
  uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus,
  Graphics,GDIPOBJ,GDIPAPI,GDIPUTIL;


type

  TwwGDIImage = class
  public
    n_Pos_X : Integer;
    n_Pos_Y : Integer;
    n_Width : Integer;
    n_Height : Integer;
    GPImageNormal : TGPImage;

    procedure CreateImageNormal(wsFileName: WideString;nPosX,nPosY,nW,nH:Integer);
  end;

  TwwGDIButton = class(TwwGDIImage)
  public
    GPImageHot : TGPImage;
    GPImageDown : TGPImage;
  end;


  TwwCanvas = class(TObject)
  private
    m_hdcMemory: HDC;
    hdcScreen: HDC;
    hBMP: HBITMAP;
    m_Blend: BLENDFUNCTION;
    // 事件
    FGPGraph: TGPGraphics;
    FOnDrawImage: TNotifyEvent;

    procedure BeginDraw(); // 绘图前置工作
    procedure EndDraw(Handle:THandle);   // 绘图收尾工作
   public
    sizeWindow: SIZE;
    ptSrc: TPOINT;
    n_Handle : THandle;
    procedure RePaint(h:THandle);
    procedur