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

[Apollonius]

Das kann überhaupt nicht funktionieren. In Helferklassen kannst du nur statische Methoden definieren, weder Felder noch virtuelle bzw. überschreibende Methoden. Dein Ansatz ist somit zum Scheitern verurteilt.

[Sereby]

und wie müsste ich es machen wenn ich es ohne helferklasse machen will? also ne neu-abgeleitete klasse

[mr2]

genau

mr2

[Sereby]

ich weiss jetzt nich ob ich lachen soll oder wie o.o
ich meinte wie ich es bei der abgeleiteten komponente realisieren soll ;)

[mr2]

Hallo,

einfach eine neue Klasse von TPageControl ableiten und die virtuelle Methode Change überschreiben.

mr2