Delphi-PRAXiS - TcxPageControl - AllowTabDragDrop einschränken

Moin,

wie kann man beim TcxPageControl verhindern, das der erste Tab verschoben wird?

Ich könnte zwar im OnChange/OnChanging vermutlich einfach AllowTabDragDrop auf False setzen, wenn der erste Tab aktiv ist, womit sich der erste Tab nicht verschieben liese, aber man kann ja dennoch einen anderen Tab davor verschieben, womit der erste Tab dann dennoch nicht mehr die Position 0 wäre.

Events im TcxPageControl gibt es nur für das normale Drag&Drop, während das Drag&Drop der Tabs in TcxPageControl.Controller (TcxCustomTabControlController) behandelt wird, aber der hat keine Events.

Einen eigenen Controller reingehangen (GetControllerClass) geht nur halb.
Über StartDragAndDrop wird erfolgreich verhindert, daß sich der erste Tab verschieben lässt,
aber nur während der Tab aktiv ist.
War beim Klick/Runterdrücken ein anderer Tab aktiv, dann wird zwar der gewünschte Tab aktiv, aber leider hat ActivePageIndex das noch den falschen/alten TabIndex, womit die Prüfung fehlschlägt.

Und nun kommt die Prüfung auf's Ziel, damit kein Tab vor dem Ersten landen kann.
Aber leider liefert DragAndDrop zwar erfolgreich False, womit ich dachte es wäre nun verboten, aber dennoch ist es erlaubt.

Wäre schön, wenn jemand wüsste, wie es richtig geht.

Delphi-Quellcode:

			type

  TMyPageControl = class(TcxPageControl)

    function GetControllerClass: TcxCustomTabControlControllerClass; override;

  end;

  TMyTabControlController = class(TcxCustomTabControlController)

    function GetDragAndDropObjectClass: TcxTabControlDragAndDropObjectClass; override;

    function StartDragAndDrop(const P: TPoint): Boolean; override;

  end;

  TMyTabControlDragAndDropObject = class(TcxTabControlDragAndDropObject)

    procedure DragAndDrop(const P: TPoint; var Accepted: Boolean); override;

    //procedure EndDragAndDrop(Accepted: Boolean); override;

  end;

function TMyPageControl.GetControllerClass: TcxCustomTabControlControllerClass;

begin

  Result := TMyTabControlController;

end;

function TMyTabControlController.GetDragAndDropObjectClass: TcxTabControlDragAndDropObjectClass;

begin

  Result := TMyTabControlDragAndDropObject;

end;

var XStartDragAndDrop: string;

function TMyTabControlController.StartDragAndDrop(const P: TPoint): Boolean;

begin

  Result := ((Owner as TcxPageControl).ActivePageIndex > 0) and inherited;

  XStartDragAndDrop := IntToStr((Owner as TcxPageControl).ActivePageIndex);

  GetParentForm(Self).Caption := XStartDragAndDrop + ' > ... = ' + BoolToStr(Result, True);

end;

procedure TMyTabControlDragAndDropObject.DragAndDrop(const P: TPoint; var Accepted: Boolean);

begin

  inherited;

  Accepted := Accepted and (DestinationTabVisibleIndex <> 0);

  GetParentForm(Self).Caption := XStartDragAndDrop + ' > ' + IntToStr(DestinationTabVisibleIndex) + ' = ' + BoolToStr(Accepted, True);

end;