| |
| |
|
Rainer
Hoefs | Ciao,
ich habe schon gesucht, aber nichts gefunden, vllt. falschen Suchbegriff benutzt.
Wie kann ich eine Tabulator-Steuerung per Controls festlegen, vor allem die richtige Reihenfolge, sodaß das nächste Control mit TAB angesprungen wird, das vorherige mit ShiftTab oder AltTAb oder StrgTab.
MfG
Rainer |
|
| |
| |
| |
|
|
Georg
Teles | Hallo, habe da was auf die Schnelle gefunden [...]  und umgebastelt
$H windows.ph
cls
Declare b%[10]
Def OnTAB(0) MenuItem(9)
WhileLoop 0,10
b%[&loop] = create("button",%hwnd,"Button "+Str$(&loop),0,20*&loop,100,20)
EndWhile
SetFocus(b%[0])
AddHotKey 9,9,0
While 1=1
WaitInput
If OnTAB()
SetFocus(GetNextChild(%getfocus))
locate 2,20
Print "nächster " + GetText$(GetNextChild(%getfocus))+" "
locate 0,20
Print "aktuell " + GetText$(%getfocus)+" "
EndIf
EndWhile
Proc GetNextChild
Parameters h&
Var ID% = ItemId(h&)
Var hNext& = GetHandle(~GetParent(h&),ID% + 1)
Case hNext& = 0:hNext& = GetHandle(~GetParent(h&),1000)
Return hNext&
EndProc
Gibt sicherlich eine bessere Lösung
Grüße |
|
| |
| |
| |
|
|
Rainer
Hoefs | Hallo und vielen Dank per den Tip.
Leider funktioniert es in meinem Programm nicht.
Rainer |
|
| |
| |
| |
|
|
Georg
Teles | Ciao,
Rainer Hoefs (02.05.2023)
Leider funktioniert es in meinem Programm nicht.
hier sollte naturalmente im Testata Def OnTAB(0) MenuItem(9) nicht fehlen und vor der Schleife SetFocus(b%[0]) und AddHotKey 9,9,0
hierbei sollte man den ersten Button mit SetFocus(_Handle_Button_) "fokusieren", damit der Sprung mit der TAB-Taste klappt
Der Code wurde unter X4 und X2 getestet, geht ... möglicherweise hast Du die TAB Taste mit einem anderen Code schon "reserviert/gelockt" ?
Grüße |
|
| |
| |
| |
|
(850)
Deutsch
English
Français
Español
Italia