Delphi 2010: PageControl und TabSheet, Labels

[Bummi]

vielleicht kannst Du damit was anfangen

Delphi-Quellcode:

type
  TTabsheet=Class(ComCtrls.TTabsheet)
            procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  End;
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation
uses uxTheme;
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
 i:Integer;
begin
SetWindowTheme(PageControl1.Handle,'','');

end;

{ TTabsheet }

procedure TTabsheet.WMPaint(var Message: TWMPaint);
var
 DC:HDC;
 f:Tform;
begin
   if Owner is Tform then
      begin
       DC := GetWindowDC(Handle);
        Windows.FillRect(DC, ClientRect,TForm(Owner).Canvas.Brush.Handle);
       ReleaseDC(handle,DC);
      end;
end;