| |
| |
|
ByteAttack | ¡Hola,
irgendwie muss Soy un Denkfehler haben más o menos???
Yo möchte wissen, si una ColorComboEditBox el enfoque ha...
Laut Hilfedatei debería lo con GW_CHILD trabajo.
Also entweder mach Yo qué falso, oder wünsche me weniger Demenz....
Wenn alguien una Concepto ha, así möge él ellos me Por favor, kundtun 
KompilierenMarcaSeparaciónUSERMESSAGES 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 ahora no en el Schirm aber por qué siempre dieses:
Sinestar encargado ende%
WaitInput
Case %Umessage=16 : ende%=1
en lugar de do{ oder mientras que 1 y Case %Umessage=16 : romper ? |
|
| |
| |
| |
|
|
ByteAttack | IF (11.09.14)
Habs ahora no en el Schirm aber por qué siempre dieses:
Sinestar encargado ende%
WaitInput
Case %Umessage=16 : ende%=1
en lugar de do{ oder mientras que 1 y Case %Umessage=16 : romper ?
Ist ahora genau, dass Yo wissen quería....  |
|
| |
| |
| |
|
|
| Jaja, witzig, sorry.  |
|
| |
| |
| |
|
(1.901)
Deutsch
English
Français
Español
Italia