"Transparenz" bei eigener Komponente

[CReber]

*Thread ausbuddel

Wollte grad dem von SirThornberry nachgehen und habe eine mit eine TTransPageControl gebastelt aber leider scheint es nur zur Hälfte zur funktionieren. Sobald TabSheets drauf sind ist da leider nichts mehr Transparent

Kann wer helfen?

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Classes, Controls, ComCtrls, ExtCtrls;

type
  TTransPageControl = class(TPageControl)
  private
  public
    procedure CreateParams(var Params: TCreateParams); override;
  published
  end;

procedure Register;

implementation

procedure TTransPageControl.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle + WS_EX_Transparent;
end;

procedure Register;
begin
  RegisterComponents('Test', [TTransPageControl]);
end;

end.