Seite 1 von 1

TAB-Taste im EditorGadget

Verfasst: 09.11.2008 16:52
von mkd
Hallo zusammen,

ich probiere grade mal wieder, ein (für mich) großes Problem zu lösen:
Wie bekomme ich es hin, dass in einem EditorGadget die TAB-Taste einen
Sprung zum nächsten Gadget auslöst und nicht einen TAB-Schritt im
selben Gadget?
Ich habe schon einige Tipps hierzu ausprobiert (aus PureArea usw.), aber
nichts hat den gewünschten Erfolg gebracht.
Schön wäre es, wenn ein einfacher TAB einen Sprung zum nächsten Gadget
auslöst und ein TAB mit STRG einen TAB-Schritt.

Hat dazu jemand eine Idee?

Vielen Dank schon mal,
Michael

Verfasst: 09.11.2008 17:15
von Fluid Byte

Code: Alles auswählen

OpenWindow(0,0,0,320,240,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(0,5,5,120,23,"untitled")
EditorGadget(1,5,40,200,100)
ComboBoxGadget(2,5,150,130,25)

Global lpPrevFunc

Procedure RichEditProc(hWnd,uMsg,wParam,lParam)
	Select uMsg
		Case #WM_CHAR
		If wParam = #VK_TAB
			SetFocus_(GetWindow_(hWnd,#GW_HWNDNEXT))
			ProcedureReturn 1
		EndIf
	EndSelect
	
	ProcedureReturn CallWindowProc_(lpPrevFunc,hWnd,uMsg,wParam,lParam)
EndProcedure

lpPrevFunc = SetWindowLong_(GadgetID(1),#GWL_WNDPROC,@RichEditProc())

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend

Verfasst: 11.11.2008 18:35
von mkd
Hallo Fluid Byte!

Klasse! Vielen, vielen Dank! :allright:
Haut super hin!

DANKE SCHÖN!

Michael