| |
| |
|
ByteAttack | Hi,
somehow must I a fallacy having or so???
i'd like to know, whether a ColorComboEditBox whom Focus has...
loudly Helpfile ought to it with GW_CHILD functions.
means either mach I what wrong, or hope less Demenz....
If someone a idea has, so möge it tappt im dunkeln me Please kundtun 
CompileMarkSeparationUSERMESSAGES 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
|
|
| |
| |
| |
|
|
 | Habs now not the screen but Why always this:
WhileNot end%
WaitInput
Case %Umessage=16 : end%=1
instead of do{ or while 1 and Case %Umessage=16 : break ? |
|
| |
| |
| |
|
|
ByteAttack | iF (11.09.14)
Habs now not the screen but Why always this:
WhileNot end%
WaitInput
Case %Umessage=16 : end%=1
instead of do{ or while 1 and Case %Umessage=16 : break ?
is now very, that I know wished....  |
|
| |
| |
| |
|
|
| Jaja, witty, sorry.  |
|
| |
| |
| |
|
(766)
Deutsch
English
Français
Español
Italia