Komponente als Handle benutzen / Form1.Alphablend übertragen

[Lemmi]

Hi Delphianer,

Ich möchte auf meiner Form ein Hintergrundbild haben und buttons, memos etc. leicht transparent haben.Nun habe ich folgenden Code gefunden, mitdem man das komplette formular transparent machen konnte.

1.Ansatz

Delphi-Quellcode:

type
 TSetLayeredWindowAttributes = function (
     hwnd : HWND;         // handle to the layered window
     crKey : TColor;      // specifies the color key
     bAlpha : byte;       // value for the blend function
     dwFlags : DWORD      // action
     ): BOOL; stdcall;

const
 WS_EX_LAYERED = $80000;
 LWA_COLORKEY = 1;
 LWA_ALPHA    = 2;

procedure SetTransparentForm(AHandle : THandle; AValue : byte = 0);
var
 Info: TOSVersionInfo;
 SetLayeredWindowAttributes: TSetLayeredWindowAttributes;
begin
 //Check Windows version
 Info.dwOSVersionInfoSize := SizeOf(Info);
 GetVersionEx(Info);
 if (Info.dwPlatformId = VER_PLATFORM_WIN32_NT) and
 (Info.dwMajorVersion >= 5) then
   begin
     SetLayeredWindowAttributes := GetProcAddress(GetModulehandle(user32), 'SetLayeredWindowAttributes');
      if Assigned(SetLayeredWindowAttributes) then
       begin
        SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
        //Make form transparent
        SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA);
      end;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetTransparentForm(Handle,150);
end;

Kann ich diese Procedure auch irgendwie auf Komponenten anwenden? Hat jemand einen besseren Vorschlag, wie ich das realisieren kann, z.B. die Alphablend-Eigenschaft von TForm auf andere Komponenten übertragen kann?

2.Ansatz

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form2 := TForm2.Create(Application);
 Form2.Top := 0;
 Form2.Left := 0;
 Form2.Parent := Form1;
 Form2.AlphaBlend := true;
 Form2.AlphaBlendValue := 150;
 Form2.visible := True;
end;

Problem hierbei ist: Form2 wird nicht transparent, da form1 nicht transparent ist....

Freue mich über jeden Ratschlag ;)

Gruß, Lemming