XProfan

Español

ByteAttack

Yo sería gerne hinter una Tabcontrol una "Tab-Hinzufügen-Button" redactar. (siehe Bild)

Gibt lo una Möglichkeit el Position uno Schaltfläche a ermitteln?

XProfan X3
Website: [...]

Facebook: [...]

27.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Como Usted beim Erzeugen el Tabs sí ihre Breite angibst, debería el Errechnung el Position para el + sí kein wirkliches Problema ser. Sind todos Tabs igual breit, musst Usted sólo el número el Tabs vorhalten.

Saludo
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 Cita Zeilenweise Cita

ByteAttack

beim redactar des TabControls Me estoy dando sí el Breite des gesamten Tabs a... Weiterhin Es el Tabüberschrift no siempre igual, y el weiß Yo vorher auch no... (se de uno DB geladen)
Naja - No es así schlimm

XProfan X3
Website: [...]

Facebook: [...]

27.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Klaus
Müller

¿Por qué el Plus no como Tab?

Kompilieren Marca Separación

 $H commctrl.ph'<-- Wichtig para SetActiveTab https://XProfan.net/intl/de/header/commctrl-ph/
Declarar tabctrl&, anzahl%
CLS
Título de la ventana "Beenden después de drittem neuen Tab"
tabctrl& = Crear("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

Mientras que 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

    Parámetros hTab&, TabIndex&
    @SendMessage(hTab&, ~TCM_SETCURFOCUS, TabIndex&, 0)

ENDPROC