Eine TForm halp- durchsichtig machen?

[bitsetter]

Hallo,

unter WinXP jedoch nicht unter Win9X funktioniert folgendes:

Delphi-Quellcode:

function SetTransparens(Wnd: hwnd; transp: byte): boolean;
type
  SetLayeredWindowAttributes= function(Wnd: hwnd; crKey: ColorRef; Alpha: Byte; dwFlags: DWORD): boolean; stdcall;
var
  hUser32: THandle;
  SetLayered: SetLayeredWindowAttributes;
begin
  Result := false;
  hUser32 := LoadLibrary('user32.dll');
  if hUser32 <> 0 then
    try
      SetLayered:= GetProcAddress(hUser32, 'SetLayeredWindowAttributes');
      if Assigned(SetLayered) then
      begin
        SetWindowLong(wnd, GWL_EXSTYLE, GetWindowLong(wnd, GWL_EXSTYLE) or WS_EX_LAYERED);
        result:= SetLayered(wnd, 0, transp , LWA_ALPHA);
      end;
    finally
      FreeLibrary(hUser32);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetTransparens(Handle, 128);
end;