| |
| |
|
ByteAttack | Salut,
irgendwie muss je une Denkfehler avons ou bien so???
je voudrais savons, si un ColorComboEditBox den Concentrer hat...
le son Hilfedatei sollte es avec GW_CHILD marcher.
alors entweder mach je quoi faux, ou bien wünsche mir moins Demenz....
si quelqu'un une concept hat, so möge il vous mir s'il te plaît kundtun 
KompilierenMarqueSéparationUSERMESSAGES 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
|
|
| |
| |
| |
|
|
 | Tricolore maintenant pas sur dem Schirm mais pourquoi toujours cet:
WhileNot ende%
WaitInput
Cas %Umessage=16 : ende%=1
statt do{ ou bien tandis que 1 et Cas %Umessage=16 : pause ? |
|
| |
| |
| |
|
|
ByteAttack | iF (11.09.14)
Tricolore maintenant pas sur dem Schirm mais pourquoi toujours cet:
WhileNot ende%
WaitInput
Cas %Umessage=16 : ende%=1
statt do{ ou bien tandis que 1 et Cas %Umessage=16 : pause ?
Ist maintenant oui c'est ca, dass quoi je savons voulais....  |
|
| |
| |
| |
|
|
| Jaja, witzig, sorry.  |
|
| |
| |
| |
|
(486)
Deutsch
English
Français
Español
Italia