如何实现窗口透明，但是窗口上的文字不透明

Question

如题：即这个窗口只显示一行文字，其他的什么都不显示，并且显示在其他窗口的最上方，文字的内容随意变动，像是外挂的一个字幕机

Answer 1

unit Unit1;
interface
uses
  Windows  Messages  SysUtils  Classes  Graphics  Controls  Forms  Dialogs
  StdCtrls;
Const
    WS_EX_LAYERED = $80000;
    AC_SRC_OVER = $0;
    AC_SRC_ALPHA = $1;
    AC_SRC_NO_PREMULT_ALPHA = $1;
    AC_SRC_NO_ALPHA = $2;
    AC_DST_NO_PREMULT_ALPHA = $10;
    AC_DST_NO_ALPHA = $20;
    LWA_COLORKEY = $1;
    LWA_ALPHA = $2;
    ULW_COLORKEY = $1;
    ULW_ALPHA = $2;
    ULW_OPAQUE = $4;
//新增加的常量定义
type
  TForm1 = class(TForm)
    Button1: TButton;
    ScrollBar1: TScrollBar;
    procedure ScrollBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    hWindows:longint;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明
implementation
{$R *.DFM}
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  SetWindowLong(Handle GWL_EXSTYLE WS_EX_LAYERED);
  SetLayeredWindowAttributes(Self.Handle 0 ScrollBar1.Position LWA_ALPHA);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  hWindows:=GetWindowLong(Handle GWL_STYLE);  //保存原来的属性
  SetWindowLong(Handle GWL_EXSTYLE WS_EX_LAYERED);//设置新的扩展属性
  {
    第1个参数:窗体句柄
    第2个参数:一个RGB值,用来告诉窗体中那种颜色需要透明
    第3个参数:透明度(0-255)
    第4个参数:指定是通过第2个参数还是第3个参数来设置透明度
  }
  SetLayeredWindowAttributes(Self.Handle 0  100  LWA_ALPHA);//设置透明度
end;
end.

Answer 2

问题解决了，参考我的博客http://blog.csdn.net/webouse/archive/2007/09/03/1769990.aspx
就是自己不能给自己分

Answer 3

如果用GDI实现的话
要滚动字幕 如果底是视频的话会有闪烁很多年前偿试过，多少有些闪烁