TcxPageControl - AllowTabDragDrop einschränken

[himitsu]

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;

[himitsu]

[Union]

Sollte das ein Push sein? Frag doch mal beim DevExpress-Support, normalerweise sind die sehr gewillt und auch befähigt zu helfen.

[himitsu]

sozuagen
Könnte ja sein, dass hier inzwischen jemand einen Tipp hat.

Nja, also dann erstml versuchen das das Problem irgendwie in ein halbwegs verständliches Englisch zu bekommen und die Zugangsdaten vom Firemkonto rauskramen.