TabSheet verschieben

[marabu]

Hallo Björn,

ich würde eine Page eher so verschieben:

Delphi-Quellcode:

// PageControl.DragMode = dmAutomatic

procedure TDemoForm.PageControlDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  with PageControl do
    Accept := (IndexOfTabAt(X, Y) <> ActivePageIndex);
end;

procedure TDemoForm.PageControlDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  with PageControl do
    ActivePage.PageIndex := IndexOfTabAt(X, Y);
end;

procedure TDemoForm.PageControlStartDrag(Sender: TObject;
  var DragObject: TDragObject);
var
  p: TPoint;
begin
  with PageControl, p do
  begin
    p := ScreenToClient(Mouse.CursorPos);
    if IndexOfTabAt(X, Y) <> ActivePageIndex then
      CancelDrag;
  end;
end;

Was aber genau dein Problem ist, habe ich leider nicht verstanden.

Grüße vom marabu