Problem with Mouse and F10 key ...

[RASHAD]

Try

Code: Select all

	If OpenWindow (1, 10, 10, 800, 600, "Keyboard Functionkey test ...", #PB_Window_SystemMenu)
		If OpenWindowedScreen (WindowID (1), 0, 0, 800, 600, 0, 0, 0)
			ClearScreen ($FF202020)

			KeyboardMode (#PB_Keyboard_Qwerty)
			AddKeyboardShortcut(1, #PB_Shortcut_F10, 100)
			....
			....
			....
			....
			If KeyboardPushed (#PB_Key_F10)
				Debug "F10 key - pushed"
				SendMessage_(WindowID(1), #WM_COMMAND, 1<<16|100, 0)
			EndIf

[marc_256]

@Shardik
Thanks for the link ...

@RASHAD
Thanks, this works very well.

@breeze4me
Also thanks, but the solution of RASHAD is a little smaller,
and for me simpler to understand.

greetings
Marc