Sys_Focus_Put()

[tlyon]

This function is useful for setting focus. However, is there a method to determine which open Alpha Five form does indeed have focus? The .Active() method doesn't appear to be aware of global focus, unless I am doing something wrong.
I can work around for a solution for my needs, but I was hoping to find something cleaner and neater to get me the desired results.

Tom Lyon

[Tom Cone Jr]

RE: Sys_Focus_Put()

Tom, I'm not sure I understand your question completely, but the system variable A_Form_current is supposed to always contain the name of the currently displayed form. Check Xbasic Ref. Manual, Chapter 5, 'Special Variables'.

Hope this helps.

-- tom

[tlyon]

RE: Sys_Focus_Put()

Yes, I understand how that variable works. The scenario is as such:

I have, let's say, 6 different forms open simultaneously. I want to use a bit of code in one or more forms that says "If this form has focus, execute this code".

Tom Lyon

[Peter.Greulich]

RE: Sys_Focus_Put()

Can't you force the focus by using the *.activate() command?

[nick marodis]

RE: Sys_Focus_Put()

Tom, You can use A_form_current which is what Tom Cone Suggested just place the script on the Onactivce event for each form or one of the other events that fire when the form has focus.
Example:
dim global myfromname as c
myfromname=A_FORM_CURRENT



Works for me.

Nick

[tlyon]

RE: Sys_Focus_Put()

I guess I didn't explain what I was needing to do well enough. I want to run a global script to determine which form has focus and run the appropriate code based on that information. To my knowledge, a global script has no a_form_value that can be used. I have since embedded code in each form to do the job, which works, but seems a bit redundant.

[martinwcole]

RE: Sys_Focus_Put()

I think you are saying that you are not necessarily in a form, and/or don't know which form you're in - i.e., you are calling a global script from any one of say 10 forms - but based on which is the "active form" you want to execute different code

if this is the case the system variable should work.

toy around with this:
select
...case a_form_current="form1"
.......do such and such
...case a_form_current="form2"
.......do so and so
...caseelse
......ui_msg_box("Error","Called with no valid form present")
end select

although I have never used this, if you play with it a little, it should work