PageControl - aktives TabSheet

[Sharky]

Hau Sascha,

dieser Code sollte die Tabs so einfärben wie Du es möchtest:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True;
end;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: integer; const Rect: TRect; Active: boolean);
begin
  with (Control as TPageControl) do
  begin
    if (Active) then
      Canvas.Brush.Color := clBlue
    else
      Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 5, Rect.Top + 3, Pages[TabIndex].Caption);
  end;
end;