Class helper for TTabsheet -> Onchange

[Sereby]

Hiho

ich steh grad irgendwie aufm schlauch wenn ich versuche für TTabSheet ein Class helper zu erstellen der bei Onchange folgenden code ausführt bevor das eigentliche NotifyEvent ausgeführt wird:

Delphi-Quellcode:

  if FTrans then
  begin
    SetWindowLong(TheControl.Handle, GWL_EXSTYLE, WS_EX_TRANSPARENT);
    Invalidate;
    TheControl.Invalidate;
  end;
  inherited;

ziel ist es den hintergrund transparent zu machen (funzt auch) und dafür nicht jedesmal bei Onchange etwas zuweisen zu müssen!

Delphi-Quellcode:

TTransTabs = class helper for TTabSheet
  private
    FTrans: Boolean;
    FOnChange: TNotifyEvent;
    procedure SetTrans(const AValue: Boolean);
  public
    property Transparent: Boolean read FTrans write SetTrans;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

die frage ist jetzt wie ich das einbinden soll.. da steh ich iwie voll aufm schlauch

Verwende Delphi 2009 auf Windows 7 x64