child window wird einfach verlassen

[cyberangle]

Guten Abend zusammen,

ich habe ein Hautpfenster mit mehren Edits zwecks Eingabe. über Menuauswahl öffne ich ein 2. Fenster und lege den Focus auf das 1. Eingabe Edit dort.
Bei Betätigung der Tab-Taste wird aber das Edit im Hauptfenster angesprungen anstatt zur 2. Edit in Cild Window zu springen.

Declare einstfenst&, Edit30&,Edit31&, aus%
 aus% = 0

  einstfenst& = Create("ChildWindow", %hwnd, "Einstellungn ändern", 80, 180, 600, 480)
  Create("Text",einstfenst&,"Datenverezichnis",10,10,150,20)
  Create("text",einstfenst&,"MWST klein",10,40,100,20)
  EDIT30& = Create("EDIT",einstfenst&,"",150,10,210,0020)
  EDIT31&= Create("EDIT",einstfenst&,"",155,40,50,20)
  SetFocus(Edit30&)

  WhileNot aus%
  WaitInput
   Print "hier"
   If %key=2
     aus%= 1
     DestroyWindow (einstfenst&)
     SetFocus(%hwnd)
   EndIf
   EndWhile
EndProc

SetTrueColor 1
WindowStyle 26+512
WINDOWTITLE "Kassen-Verwalltung"
WINDOW (%maxx/2 - 1248/2),(%maxy/2 - 909/2) - 1248,909
CLS GETSYSCOLOR (15) 'neu


USEFONT "MS Sans Serif",18,0,0,0,0
SETDIALOGFONT 1
' Hier kann ggf. Ihr Menü hin
PopUp "Datei"
Appendmenu 201,"Datei öffnen"
Separator
Appendmenu 202,"Speichern"
Appendmenu 203,"Speichern unter"
Separator
Appendmenu 204,"Beenden"
PopUp "Tools"
Appendmenu 401,"Anfangsbestand eingeben"
AppendMenu 402,"Einstellungen ändern"
DATEEDIT1& = CREATE("DATEEDIT",%HWND,"",15,0100,0120,20)
SetFocus(DATEEDIT1&)

WHILENOT ENDE%
  WaitInput
   If %key=2
     ENDE%= 1
   EndIf
   Case MenuItem(402) : Einstell

EndWhile
end

Was mache ich falsch?

[Frabbing]

Da fehlt ein "Proc" im Code. Ist so leider nicht testbar.

[cyberangle]

sorry,

hier ist der Code noch einmal.

Declare  ENDE%, dateedit1&
DEF GetSysColor(1) !"USER32","GetSysColor"

Proc  Einstell

 Declare einstfenst&, Edit30&,Edit31&, aus%
 aus% = 0

  einstfenst& = Create("ChildWindow", %hwnd, "Einstellungn ändern", 80, 180, 600, 480)
  Create("Text",einstfenst&,"Datenverezichnis",10,10,150,20)
  Create("text",einstfenst&,"MWST klein",10,40,100,20)
  EDIT30& = Create("EDIT",einstfenst&,"",150,10,210,0020)
  EDIT31&= Create("EDIT",einstfenst&,"",155,40,50,20)
  SetFocus(Edit30&)

  WhileNot aus%
  WaitInput
   Print "hier"
   If %key=2
     aus%= 1
     DestroyWindow (einstfenst&)
     SetFocus(%hwnd)
   EndIf
   EndWhile
EndProc

SetTrueColor 1
WindowStyle 26+512
WINDOWTITLE "Kassen-Verwalltung"
WINDOW (%maxx/2 - 1248/2),(%maxy/2 - 909/2) - 1248,909
CLS GETSYSCOLOR (15) 'neu


USEFONT "MS Sans Serif",18,0,0,0,0
SETDIALOGFONT 1
' Hier kann ggf. Ihr Menü hin
PopUp "Datei"
Appendmenu 201,"Datei öffnen"
Separator
Appendmenu 202,"Speichern"
Appendmenu 203,"Speichern unter"
Separator
Appendmenu 204,"Beenden"
PopUp "Tools"
Appendmenu 401,"Anfangsbestand eingeben"
AppendMenu 402,"Einstellungen ändern"
DATEEDIT1& = CREATE("DATEEDIT",%HWND,"",15,0100,0120,20)
SetFocus(DATEEDIT1&)

WHILENOT ENDE%
  WaitInput
   If %key=2
     ENDE%= 1
   EndIf
   Case MenuItem(402) : Einstell

EndWhile
end

[Volkmar]

Und schon funktioniert's (fast) Ich würde empfehlen, nicht ChildWindow sondern Dialog für das Dialogfenster zu nehmen. ChildWindow macht doch nur Probleme.

Gruß Volkmar

[cyberangle]

kleine Ursache, große Wirkung, danke Volkmar

[Volkmar]

Gern geschehen. Wäre sicher die nächste Frage gewesen, warum Du die Eingabefelder nicht korrekt erreichst und das Datecontrol durch den Dialog nach vorn durchkommt.

Gruß Volkmar