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