TExtendedNotebook umożliwia automatyczne przesuwanie kart (TabDragAcceptMode
+TabDragMode
); problem jest - jak wykryć, że nastąpiło przesunięcie karty (tj.skąd oraz dokąd)?
Wcześniej próbowałem jeszcze korzystać z kodu na ręczne robienie takich rzeczy, który działa w Delphi 7:
http://delphi.about.com/cs/adptips2004/a/bltip0304_3.htm
Lecz w Lazarusie nie mogę go doprowadzić do działania (z tego co przeczytałem, to u innych również są z tym problemy) :/
Lazarus v.1.1, rev.39905 wraz z FPC 2.6.1 (tj.dzisiejszy snapshot, lecz kod również nie działa na stabilnej wersji 1.0.4).
Edit: jak zwykle ja się trudzę, a gotowe rozwiązanie już istnieje: Zdarzenie `OnTabDragDropEx` posiada odpowiednie parametry: `OldIndex, NewIndex: Integer;` ;)