TPageControl mit transparentem Bereich hinter dem letzten Tab

[Bummi]

mit einem normalen Pagecontrol ....

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
 PCResize(PC);
end;

procedure TForm2.PCResize(Sender: TObject);
var
 SumTabWidth:Integer;
 i,th:Integer;
 rg1,rg2:THandle;
begin
 SumTabWidth := 0;
 th :=  PC.Tabrect(0).Bottom - PC.Tabrect(0).Top;
 for i := 0 to PC.Pagecount - 1 do
  if PC.Pages[i].TabVisible then SumTabWidth := SumTabWidth + PC.Tabrect(i).Right - PC.Tabrect(i).left + 2;
 rg1 := CreateRectRgn(0, 0, PC.Width, PC.Height);
 rg2 := CreateRectRgn(SumTabWidth,0,PC.Width,th);
 CombineRgn(rg1, rg1, rg2, RGN_XOR);
 SetWindowRgn(PC.Handle,rg1,true);
 DeleteObject(rg1);
 DeleteObject(rg2);
end;