XProfan

USERMESSAGES 16
DEF GetWindow(2) !"USER32","GetWindow"
Def GetSysColor(1) !"USER32","GetSysColor"
 $I SKControl.inc
declare GW_CHILD&,string#,skdll&,ende%,EditBox&,Zeile%,GWHandle&
GW_CHILD& = 5
dim string#,255
skdll&=UseDll("SKControl.dll")
SKCtrl_InitDll()
WindowStyle 24
Window (%maxX/2)-320,((%maxY/2)-240)-640,480
Windowtitle "SKControl.DLL - Handles"
Set("TrueColor",1)
Cls GetSysColor(15)
EditBox&=SKCtrl_CreateColorComboEditBox(%hwnd,0,RGB(255,255,0),RGB(0,0,125),300,10,200,100,%hInstance)
ClearList
AddString "Eintrag 1"
AddString "Eintrag 2"
MoveListToHandle(EditBox&)
Zeile%=SelectString(EditBox&,-1,"Eintrag 1")
GWHandle&=GetWindow(EditBox&,GW_CHILD&)
print "GW_CHILD :"+Str$(GWHandle&)+" - "+GetString$(GWHandle&,Zeile%)+"\n"
print "EditBox& :"+Str$(EditBox&)+" - "+GetString$(EditBox&,Zeile%)+"\n"

WhileNot ende%

    WaitInput
    Case %Umessage=16 : ende%=1
    Locate 5,0
    print "%GetFocus: "+Str$(%GetFocus)

    If GetFocus(GWHandle&)

        print "GWHandle"

    ElseIf GetFocus(EditBox&)

        print "MainHandle"

    EndIf

EndWhile

dispose string#
SKCtrl_DeInitDll()
FreeDll skdll&
end