| |
|
|
Rainer Hoefs | ¡Hola,
Yo ya gesucht, aber nichts gefunden, vllt. falschen Suchbegriff benutzt.
¿Cómo se puede Yo una Tabulator-Steuerung para Controls festlegen, antes allem el richtige Reihenfolge, sodaß el nächste Control con TAB angesprungen se, el vorherige con ShiftTab oder AltTAb oder StrgTab.
MfG Rainer |
|
|
| |
|
|
|
Georg Teles | ¡Hola, habe como qué en el Schnelle gefunden [...] y umgebastelt
$H windows.ph
cls
Declarar b%[10]
Def OnTAB(0) MenuItem(9)
WhileLoop 0,10
b%[&bucle] = create("button",%hwnd,"Button "+Str$(&bucle),0,20*&bucle,100,20)
EndWhile
SetFocus(b%[0])
AddHotKey 9,9,0
Mientras que 1=1
WaitInput
If OnTAB()
SetFocus(GetNextChild(%getfocus))
locate 2,20
Imprimir "nächster " + GetText $(GetNextChild(%getfocus))+" "
locate 0,20
Imprimir "aktuell " + GetText $(%getfocus)+" "
EndIf
EndWhile
Proc GetNextChild
Parámetros h&
Var ID% = ItemId(h&)
Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
Volver hNext&
ENDPROC
Gibt sicherlich una bessere Solución
Grüße |
|
|
| |
|
|
|
Rainer Hoefs | ¡Hola y vielen Dank para el Tip. Leider funktioniert lo en mi Programa no. Rainer |
|
|
| |
|
|
|
Georg Teles | ¡Hola,
Rainer Hoefs (02.05.2023)
Leider funktioniert lo en mi Programa no.
hier debería natürlich en el Encabezamiento Def OnTAB(0) MenuItem(9) no fehlen y antes del bucle SetFocus(b%[0]) y AddHotKey 9,9,0
hierbei debería uno el ersten Button con SetFocus(_Handle_Button_) "fokusieren", así el Sprung con el TAB-Taste klappt
Der Code wurde bajo X4 y X2 getestet, va ... möglicherweise hast Usted el TAB Taste con un otro Code ya "reserviert/gelockt" ?
Grüße |
|
|
| |
|
|