Man könnte DrawTab verwenden, die Tabs erstmal ganz normal zeichnen und bei TabIndex = Letzter Tab z.B. einen BitBtn an die Position hinters letzte Tab schieben.
Delphi-Quellcode:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
// Tabs normal beschriften
if TabIndex = PageControl1.PageCount -1 then
begin
ButtonPlus.Top := PageControl1.Top + 2;
ButtonPlus.Left := PageControl1.Left + Rect.Right + 2;
Oder nur was zeichen und MouseEvents für den Bereich auswerten.