$P+
SetErrorLevel 0
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.2d
' DATUM  02.10.2005    um  13:09 Uhr
' VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
' CODE ERSTELLT UNTER WINDOWS XP
' !!! Dieser Code wird von Roc immer neu erzeugt        !!! 
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE T&,TAB1&,TAB2&
DECLARE EDIT1&,EDIT2&,EDIT3&
DECLARE ELEMENT1&,ELEMENT2&,ELEMENT3&

WINDOWSTYLE 63
WINDOWTITLE "Tabtest"
WINDOW 209,169-500,250
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

' Hier kann ggf. Ihr Menü hin

T& = CREATE("TABCTRL",%HWND,"Reiter1",0025,0027,0395,0172)
TAB1&=@InsertTab(T&,1,"Reiter2")
TAB2&=@InsertTab(T&,2,"Reiter3")

'AUF ERSTEN TAB LEGEN: (Nicht an Edit stören, habs einfach so genannt!)
ELEMENT1&=Control("STATIC","",$54001106,10,30,200,100,t&,0,%hinstance,$0)
 EDIT1&=Create("Edit",ELEMENT1&,"TAB 0",10,10,100,18) 

'AUF ZWEITEN TAB LEGEN:
ELEMENT2&=Control("STATIC","",$54001106,10,30,200,100,t&,0,%hinstance,$0)
 EDIT2&=Create("TEXT",ELEMENT2&,"TAB 1",10,10,100,18) 

'AUF DRITTEN TAB LEGEN:
ELEMENT3&=Control("STATIC","",$54001106,10,30,200,100,t&,0,%hinstance,$0)
 EDIT3&=Create("BUTTON",ELEMENT3&,"TAB 3",10,10,100,18) 


'Zuerst nur das erste anzeigen:
Showwindow(Element1&,1)
Showwindow(Element2&,0)
Showwindow(Element3&,0)

SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT

SETTEXT %HWND,"Aktives Tab "+STR$(GetActiveTab(T&))
   If @EQU(%KEY,2)
     LET ENDE%= 1
   ELSEIF @EQU(%KEY,4)
   ELSEIF TABCHANGED(T&) 'TABCTRL
      IF GetActiveTab(T&) = 0
        Showwindow(Element1&,1)
	Showwindow(Element2&,0)
	Showwindow(Element3&,0)
      ELSEIF GetActiveTab(T&) = 1
        Showwindow(Element1&,0)
	Showwindow(Element2&,1)
	Showwindow(Element3&,0)
      ELSEIF GetActiveTab(T&) = 2
        Showwindow(Element1&,0)
	Showwindow(Element2&,0)
	Showwindow(Element3&,1)
      ENDIF 
   ENDIF
WEND