Can someone explain this tab anomaly?

[Bokkie]

Can someone run the attached file for me? Tab your way through the controls. When the exit button gets the focus it needs two tabs before the focus gets to the top input field but no control gets the focus. I'm wondering if the label at the top left next to the input field it is getting the tab as well? If that's the case is it possible to suppress it so the focus passes immediately from the exit button to the input field?

[CyberSlug]

By adding the line ToolTip( ControlGetFocus($mainForm) , 0,0 ) inside the while-loop, we can tell that Button10 gets focus.... and this corresponds to this control:

$exitApplication = GUICtrlCreateButton("E&xit workbench", 224, 365, 170, 25, 0)

Get rid of the $exitApplication control and there are no problems

EDIT: Or you can make your window taller so that the mystery button isn't cut off...

Edited March 8, 2006 by CyberSlug

[Bokkie]

By adding the line ToolTip( ControlGetFocus($mainForm) , 0,0 ) inside the while-loop, we can tell that Button10 gets focus.... and this corresponds to this control:

$exitApplication = GUICtrlCreateButton("E&xit workbench", 224, 365, 170, 25, 0)

Get rid of the $exitApplication control and there are no problems

EDIT: Or you can make your window taller so that the mystery button isn't cut off...

Thanks slippery slug!

That control was leftover from earlier and I thought I'd deleted the offending button but I guess it got buried under the group panels. I like the tooltip snippet. Very useful!

BTW: is there an easy way to set the font so that all controls use it? The code that was generated used a font assignment for each control which means there's a lot of duplication. Maybe i can set the font once and let it apply to all unless I change it to something else?

Edited March 8, 2006 by Peter Hamilton-Scott

[SmOke_N]

Have you looked at GUISetFont()?

[Bokkie]

Have you looked at GUISetFont()?

Yup! That works perfectly. I guess you seasoned campaigners get fed up with stoopid noobie questions!

[CyberSlug]

An alternative tooltip that could have been added to the "Case Else":

If $msg > 0 Then ToolTip(GuiCtrlRead($msg), 0,0)

When you tab to the mystery control and hit space, you get the button's name