XProfan

Italia

ByteAttack

Ich würde gerne hinter einem Tabcontrol ein "Tab-Hinzufügen-Button" erstellen. (siehe Bild)

Gibt es eine Möglichkeit die Position einer Schaltfläche zu ermitteln?

XProfan X3
Website: [...]

Facebook: [...]

27.09.2015 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Da Du beim Erzeugen der Tabs ja ihre Breite angibst, sollte die Errechnung der Position per das + ja kein wirkliches Problem sein. Sind alle Tabs gleich breit, musst Du nur die Anzahl der Tabs vorhalten.

Saluto
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

27.09.2015 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

ByteAttack

beim erstellen des TabControls gebe ich ja die Breite des gesamten Tabs an... Weiterhin ist die Tabüberschrift nicht immer gleich, und die weiß ich vorher auch nicht... (wird aus einer DB geladen)
Naja - Nicht so schlimm

XProfan X3
Website: [...]

Facebook: [...]

27.09.2015 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Zielinski

Warum das Plus nicht als Tab?

Kompilieren Markieren Separieren

 $H commctrl.ph'<-- Wichtig per SetActiveTab https://xprofan.net/intl/de/header/commctrl-ph/
Declare tabctrl&, anzahl%
CLS
WindowTitle "Beenden nach drittem neuen Tab"
tabctrl& = Create("TabCtrl",%HWnd,"A",0,0,500,300)
anzahl% = 1
InsertTab(tabctrl&, anzahl%, "B")
anzahl% = 2
InsertTab(tabctrl&, anzahl%, "C")
anzahl% = 3
InsertTab(tabctrl&, anzahl%, "+")
anzahl% = 4

While anzahl% < 8

    Waitinput

    If TabChanged(tabctrl&)

        If GetActiveTab(tabctrl&) = anzahl%-1

            InsertTab(tabctrl&, anzahl%-1, Str$(anzahl%))
            anzahl% = anzahl% + 1
            SetActiveTab(tabctrl&,anzahl%-2)

        EndIf

    EndIf

EndWhile

End

Proc SetActiveTab

    Parameters hTab&, TabIndex&
    @SendMessage(hTab&, ~TCM_SETCURFOCUS, TabIndex&, 0)

EndProc