Die große Frage steht auch im Bild.
Was mache ich falsch ?
Warum reagiert der Button nicht ???
Code
DECLARE maintab&,aktivestab&,edit01&,edit02&,save&
DECLARE text$
Def @Show(1) @ShowWindow(@&(1), 1)
Def @Hide(1) @ShowWindow(@&(1), 0)
VAR font0%=CREATE("FONT","ARIAL",16,6,0,0,0)
VAR font1%=CREATE("FONT","ARIAL",24,0,0,0,0)
VAR ende%=0
'########################################
WindowStyle 512+26
WINDOW (%MaxX-850),50 - 800,385
Windowtitle "Problem"
USEICON "A"
SETDIALOGFONT font1%
'-------------------------------------------------------------------------
maintab& = Create("Tabctrl", %hwnd, " Favoriten ", 0, 0,Width(%hwnd), Height(%hwnd) - 30)
InsertTab(maintab&, 1, " Grafik, Tools ")
VAR txt%=CREATE("TEXT",%hwnd,"Warum reagiert der Button nicht ?",10,330,350,25)
ALLE_CONTROLLS
EINS_AKTIV
WHILENOT ende%
WAITINPUT
IF TabChanged(maintab&)
AktivesTab& = GetActiveTab(maintab&)
IF AktivesTab& = 0
EINS_AKTIV
ELSEIF AktivesTab& = 1
ZWEI_AKTIV
ENDIF
ENDIF
IF CLICKED(save&) 'warum reagiert der nicht ?
text$=GETTEXT$(edit01&)
Messagebox(text$,",64)
ENDIF
CASE Iskey(27):ende%=1
CASE %Key=2:ende%=1
ENDWHILE
END
'###########################################
PROC ALLE_CONTROLLS
edit01&=CREATE("EDIT",maintab&,text$,20,100,200,20)
SetFont edit01&,font0%
save&=CREATE("BUTTON",maintab&,"Button",50,150,100,30)
edit02&=CREATE("EDIT",maintab&,"ZWEI",200,200,200,20)
SetFont edit02&,font0%
ENDPROC
'-----------------------------------
PROC EINS_AKTIV
HIDE(edit02&)
EnableWindow edit02&,0
SHOW(edit01&)
EnableWindow edit01&,1
SHOW(save&)
EnableWindow save&,1
SetFocus(edit01&)
ENDPROC
'###########################################
PROC ZWEI_AKTIV
HIDE(edit01&)
EnableWindow edit01&,0
HIDE(save&)
EnableWindow save&,0
SHOW(edit02&)
EnableWindow edit02&,1
SetFocus(edit02&)
ENDPROC
'#########################################
Alles anzeigen