🚀 go-pugleaf

> Szukam lepszego komponentu TPageControl, takiego, który można tab przesuwać za pomocą myszy, chcę
> zrobić edytor z Synedit z zakładkami.

Do tego nie potrzeba lepszego komponentu - wystarczy zwykłe drag&drop.

{ PageControl drag&drop events }

procedure TXFDesigner.PageControlMouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
  (Sender as TPageControl).BeginDrag(False);
end;

procedure TXFDesigner.PageControlDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
  Accept := (Sender is TPageControl) and (Source = Sender);
end;

procedure TXFDesigner.PageControlDragDrop(Sender, Source: TObject; X, Y: Integer);
const
   TCM_GETITEMRECT = $130A;
var
   Rect: TRect;
   I: Integer;
begin
  with Sender as TPageControl do
  for I := 0 to PageCount-1 do
  begin
    Perform(TCM_GETITEMRECT, I, @Rect);
    if PtInRect(Rect, Point(X, Y)) then
    with ActivePage do
    begin
      if PageIndex <> I then PageIndex := I;
      Exit;
    end;
  end;
end;

-- 
pozdrowienia
Krzysztof Szyszka, X-Files Software
Developer of X-DBGrid Component
Embarcadero Technology Partner
http://www.x-files.pl/