HMGforum.com

mol wrote:Hi!
I want to define hotkey eg. F6 which will realize different functions upon the control which has focus currently.

Is it possible to determine, which control has focus now?

I can't find such a information...

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://sites.google.com/site/hmgweb/
*/

#include "hmg.ch"

Function Main

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'HMG Demo' ;
		MAIN 

		ON KEY F2 ACTION MsgInfo ( ThisWindow.FocusedControl )

		@ 10,10 TEXTBOX Text_1 
		@ 50,10 TEXTBOX Text_2 
		@ 90,10 TEXTBOX Text_3 


	END WINDOW

	Form_1.Center

	Form_1.Activate

Return Nil

gfilatov wrote:

mol wrote:Hi!
I want to define hotkey eg. F6 which will realize different functions upon the control which has focus currently.

Is it possible to determine, which control has focus now?

I can't find such a information...

Hi Marek,

Please try the following simple sample from the HMG distribution:

Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://sites.google.com/site/hmgweb/
*/

#include "hmg.ch"

Function Main

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'HMG Demo' ;
		MAIN 

		ON KEY F2 ACTION MsgInfo ( ThisWindow.FocusedControl )

		@ 10,10 TEXTBOX Text_1 
		@ 50,10 TEXTBOX Text_2 
		@ 90,10 TEXTBOX Text_3 


	END WINDOW

	Form_1.Center

	Form_1.Activate

Return Nil

Hope that useful

rathinagiri wrote:Hi Marek,

Why don't you use 'this'?

From HMG Reference:

Code: Select all

 

      This.<Property/MethodName>

 

It provides a reference to the current control/window in event code.

Control: Of OknoSystem Not defined. Program Terminated