Drag & Drop PageControl

[Tpercon]

Hi nochmal

Hab das jetzt wie folgt gelöst:

Code:

private
 eintrag:integer;

procedure TForm1.PageControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i: integer;
begin
i:=PageControl1.IndexOfTabAt(x,y);
If (i>-1)and(Button=mbLeft)
 then
  begin
   Eintrag:=i;
   PageControl1.BeginDrag (false);
  end;
end;

procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var i:integer;
begin
i:=PageControl1.IndexOfTabAt(x,y);
If i > -1
 then
  begin
   PageControl1.Pages[eintrag].PageIndex:=i;
  end;
end;

procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
If Source is TTabSheet
 then Accept:=true;
end;

Gruß