XProfan

 $H Windows.ph
Declare Breite%, Hoehe%, Top%, Left%
Declare hMainWin&, hChildWin&
Breite% = 1024
Hoehe% = 768
Top% = 0
Left% = 0
WindowStyle 27
hMainWin& = @Create("Window",0,"Irgend so a text",Top%,Left%,Breite%,Hoehe%)
hChildWin& = @Create("ChildWindow",hMainWIn&, "Child", 80, 60, Breite% / 2, Hoehe% / 2)
@SetFocus(hChildWin&)
Waitkey
End

 $H Windows.ph
Declare Breite%, Hoehe%, Top%, Left%
Declare hMainWin&, hChildWin&
Declare hD%, hB%, Edit1%, Edit2%, Edit3%
Breite% = 1024
Hoehe% = 768
Top% = 0
Left% = 0
WindowStyle 27
hMainWin& = @Create("Window",%hWnd,"Irgend so a text",Top%,Left%,Breite%,Hoehe%)
hChildWin& = @Create("ChildWindow",hMainWin&, "Child", 80, 60, Breite% / 2, Hoehe% / 2)
hB% = @Create("Button",hChildWin&,"&OK",50,50,20,20)
Edit1% = @Create("Edit",hChildWin&,"",100,100,150,20)
Edit2% = @Create("Edit",hChildWin&,"",100,130,150,20)
Edit3% = @Create("Edit",hChildWin&,"",100,160,150,20)
@SetFocus(Edit1%)
Waitkey
@SetFocus(Edit2%)
Waitkey
@SetFocus(Edit3%)
Waitkey
End