TPageControl, Springteufel bei ActivePage.Free

[wicht]

Hallo Forum.

Ich möchte euch mal mit einem Problem belästigen, an dem ich schon länger dran sitze und langsam nicht mehr weiter weiß. Also, ich habe mir ein PageControl abgeleitet von TPageControl, dazu eigene TabSheets mit schönen Buttons zum Schließen. Wenn ich nun ein Tab schließe, vorzugsweise das, welches sich ganz rechts befindet, während es Aktiv ist, verschwindet das Tab und das PageControl setzt alle Tabs vom geschlossenen aus bis zum ersten für eine ganz kurze Zeit auf Aktiv, bis das erste dann aktiv bleibt. Quasi so, als würde der User nach dem Schließen eines Tabs alle, die sich links davon befinden, einmal anklicken, nur eben ganz schnell.
Das sieht recht bescheiden aus. Es gibt wohl pfiffige Menschen, die sowas als "coolen Effekt" verkaufen könnten, allerdings klappt das nicht mehr, wenn man nach dem Schließen des letzten Tabs nicht das erste aktiv haben will, sondern das, was vor dem geschlossenen liegt. Dann geht er von rechts nach links alle bis zum ersten durch und setzt dann passend das vor dem Schließen vorletzte Tab auf aktiv, was noch weniger als bescheiden aussieht.
Natürlich dachte ich, dass es am Code in meinen abgeleiteten Klassen liegt, aber das selbe scheint auch bei einem normalen TPageControl mit normalen Sheets der Fall zu sein. Ausserdem habe ich das Gefühl, dass das Tab schon etwas mit Controls befüllt sein muss, ansonsten geht der Springteufel so schnell, dass man es bemerkt, wenn man weiß, dass das passiert.

Hat da jemand einen Anhaltspunkt? Oder ist das Problem irgendwem bekannt, irgendwie, oder so etwas ähnliches? Das nervt mich schon seit Wochen und irgendwie bekomme ich das nicht hin. Falls ein Testprojekt gebraucht wird, würde ich da wohl auch was bauen, wenn hier interesse besteht.


Einen schönen Abend noch, und Dank im Vorraus,

Alexander

[Union]

ActivePage.Free sollte man nicht anwenden. Gründe findest Du über die Suche im Forum oder Google. Vorschlag: Zu schließende Seite merken, auf andere Seite wechseln und dann das free auf das gemerkte Seitenobjekt anwenden.