Scrollowanie kart w PageControl

0

Witam.
Mam dość trudne pytanie.
Chciałbym zrobić sterowanie za pomocą rolki myszki widocznymi kartami PageControl. Jeśli karty nie mieszczą się w szerokości to pojawiają się takie przyciski z boku. Chodzi o to żeby właśnie tak poruszać.

Dokładnie to o czym mówię było w Delphi 7 na przykład. Po najechaniu myszką na karty na palecie z komponentami i przesunięciu rolki paleta przesuwała się.

Niestety Google milczy, szukałem w Unitach gdzie są komunikaty i różne rzczy od PageControla ale nic nie znalazłem.
Próbowałem także z OnMouseMove+komunikat od rolki ale PageControl w ogóle nie reaguje OnMouseMove abstrachując nawet od rolki. Nie wiem czemu, miał focusa itd a nic się nie działo. W tedy można by zrobić PageControl.ActiveTabIndex - 1. Co ciekawe jednak w Delphi 7 to nie było tak, ponieważ kiedy ruszało się rolką aktywna karta wcale się nie zmieniała, pokazywały się tylko nie widoczne karty.

Z góry dziękuje za pomoc i pozdrawiam :)

0

Nie no nie wierze, że tutejsi guru Delphiego, nie mają żadnego pomysł :)

0

Powiem tylko tyle:
ScrollTabs(1) w zdarzeniu OnMouseWheelDown
i i ScrollTabs(-1) w zdarzeniu OnMouseWheelUp

;P

0

O żesz, Ty. Ja tego dwa dni szukałem. Nie mam pojęcia jak mogłem to przeoczyć bo szukałem w methodach Pagecontrola i nie znalazłem. Bardzo dziękuję [!!!] :D

0

Tak to właśnie jest jak za długo siedzisz nad tą samą rzeczą ;P Ja to nazywam kurzą ślepotą :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1