Delphi以GDI+制作桌面歌词效果.docx

新建一个应用程序，在窗体上放置一个TTimer 和一个 TPopupMenu，TTimer 的 Interval 属性为 1500，TPopupMenu 建立三个子菜单项，分别为“总在最前”、“背景穿透”和“退

出”。再准备一张背景图片。工程源代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IGDIPlus, ExtCtrls, Menus;

type

TForm1 = class(TForm)

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure tmr1Timer(Sender: TObject);

procedure mni_topMostClick(Sender: TObject);

procedure MouseLeave(var Msg: TMessage);message WM_MOUSELEAVE;

procedure mni_transparentClick(Sender: TObject);

procedure mni_exitClick(Sender: TObject);

private

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{-------------------------------------------------------------------------------

-------------------------------------------------------------------------------}

function TForm1.UpdateDisplay(pszbuf: WideString;bBack: Boolean;Transparent: Integer):Boolean;

var

hdcTemp,hdcScreen,m_hdcMemory: HDC;

hBitMap: Windows.HBITMAP;

blend: BLENDFUNCTION; //这种结构的混合控制通过指定源和目标位图的混合功能

rct: TRect;