Transparenter Frame?!

[Flodding]

Okay hab noch ne runde gesucht... konnts einfach nicht sein lassen... bin auf eine quelle gestoßen und habs letztendlich mit viel probieren geschafft

Natürlich für die nachwelt, denn ich habe echt oft Fragen danach gefunden

Also hier der Code für nen "Semi-Transparent-Frame"

Delphi-Quellcode:

unit unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFrame1 = class(TFrame)
    Button1: TButton;
    procedure CreateParams(var Params: TCreateParams);override;
    procedure PaintWindow(DC: HDC); override;
  private
    { Private declarations }
  public
    constructor Create(AOwner:TComponent);override;
    { Public declarations }
  end;

var
  Frame1: TFrame1;

implementation

{$R *.dfm}

constructor TFrame1.Create(AOwner: TComponent);
begin
  inherited;
  Brush.Style := bsClear;
end;

procedure TFrame1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TFrame1.PaintWindow(DC: HDC);
begin
// Muss stehen bleiben :D
end;

end.

endlich hab ich auch mal was beigesteuert was es nicht gab