PageControl - Tabs um Schließen-Symbol erweitern

[Balu der Bär]

Hallo,

heute habe ich einen mehr oder minder schweren Anschlag auf euch vor. *g*

Ich benutze in meinem Programm ein TPageControl auf welchem mehrere TabSheets liegen. Jetzt hätte ich gerne, dass jeder Tab ein Schließen-Symbol ([x]) am Ende jedes Tabs hat, sodass man den Tab schließen kann (Beispiel siehe Anhang). Leider habe ich bloß keine Ahnung wie ich das mit einem PageControl hinbekomme. Ich dachte daran das Schließen Symbol mittels Canvas auf den Tabreiter zu zeichnen, klappte nach den ersten Versuchen aber auch nicht recht, da erstens jeder Tabreiter unterschiedlich groß sein kann und zweitens ich nicht wüsste wie ich auf das Klicken auf das gezeichnete Symbol reagieren sollte. Hat da jemand ne Idee wie ich das hinbekomme? Danke euch.

[Daniel G]

Evtl. könntest du diese beiden Tipps miteinander verbinden:

Herausfinden, auf welches Tab geklickt wurde (benutzt TabRect)
Bsp. für selbst gezeichneten Closebutton

Evtl. könnte man dann unter Verwendung von TabRect mit relativen Positionsangaben eine Closebutton zeichnen.

P.S.: Solltest du 'ne Lösung haben, poste sie mal bitte hier...

//Edit: Oh Gott, zweimal "Evtl."

[Balu der Bär]

Danke erstmal, mal gucken ob ich da halbwegs durchsteige.

Zitat von Daniel G:

P.S.: Solltest du 'ne Lösung haben, poste sie mal bitte hier...

[Balu der Bär]

Ich nochmal, also das Erstellen des Buttons hat mit diesem Code ja schon geklappt. Leider nur bekomme ich es einfach nicht hin den Button oben in in die Tabbeschriftung zu schreiben. In TabRect liegen zwar die Positionen des Reiters, jedoch komm ich einfach nicht drauf wie ich dort hinein zeichnen kann.

Ich glaube so langsam krieg ich es hin. *g*

[DGL-luke]

Kommt doch nur aufs Parent des Buttons an... und dann musst du eben die Koordinaten umrechnen.

[Balu der Bär]

Ok, ich hatte anfangs einen kleinen Denkfehler drin, deshalb klappte es ständig nicht.

Jetzt gehts aber ungefähr so wie ich mir das gedacht habe (siehe Screenshot). Hab mal ein klitzekleines Beispiel angehangen, sollte für jeden verständlich sein. Der ganze Dank gebührt natürlich dataspider für seinen Code.

[API]

Wie kann man bei Klick auf einen Schließen-Button benachrichtigt werden und dann das zugehörige Tab schließen?

[toms]

Zitat von API:

Wie kann man bei Klick auf einen Schließen-Button benachrichtigt werden und dann das zugehörige Tab schließen?

Indem man TrwCloseButton einen OnClick/OnMouseUp Handler zuweist.
Im Anhang ein erweitertes Demo. Schöner ist es natürlich, wenn das Ganze in eine eigene Klasse verpackt wird.

Tags: PageControl, CloseButtons, Close buttons, TabSheet

[einfach112]

Hi ! also ich versuche gerade das alles etwas zu erweitern und versuche während der laufzeit ein tabsheet hinzuzufügen ......
nur ich habe immer probleme....
1. Tabsheet wird hinzugefügt aber hat kein X
2. wenn ich beim erstellen des tabsheets gleichzeitig Showtabbuttons;
aufrufe
dann wird bei den Tabsheets (t1+t2+t3) jeweils ein zweites X je tabsheet gezeichner und eines auf meinem neuen tab !.....
Hat jemand ne idee wie man das ändern kann das er eventuell so wie beim schliessen eines tabs auch beim neuen erstellen eines tabs die jeweiligen tabsheets zählt und dann die Xse neu zeichnet ?! ?!

bin wie immer über hilfe sehr sehr dankbar !
mfg
einfach112

[toms]

Aktualisiertes Demo im Anhang.

Neu:

* TabSheet zur Laufzeit erzeugen
* Per Kontextmenü ein Tab schließen
* Quelltext ein wenig kommentiert