Drag & Drop PageControl

[jbg]

Vertauschen:

Code:

var
  TS1, TS2: TTabSheet;
  Index: Integer;
begin
  TS1 := AusgewähltesTabSheet;
  TS2 := MitDiesemTabSheetTauschen;
  Index := TS1.PageIndex;
  TS1.PageIndex := TS2.PageIndex;
  TS2.PageIndex := Index;
end;