*!* Begin
public oLogin
oLogin = crea([oForm])
oLogin.show
define class oButton as commandbutton
enddefine
define class oText as TextBox
enddefine
define class oForm as Form
add object TxtPassword as oText with ;
top = 20, ;
left = 120
add object CmdEnter as oButton with ;
top = 60, ;
left = 20
add object CmdExit as oButton with ;
top = 60, ;
left = 120
add object TxtLoginID as oText with ;
top = 20, ;
left = 20
proc init
this.TxtLoginID.setfocus
endproc
enddefine
*!* End
>I have a login screen which has two test boxes: TxtLoginID, & TxtPassword.
>
>It also has two buttons, CmdEnter & CmdExit
>
>I have tried Thisform.TxtLoginID.setfocus in the INIT Event and Activate both of the form and cannot seem to get it to work.
>
>When the form comes up and focus is supposedly set to one of my text fields then the cursor does not show and pressing Tab gives you the default beep.
>
>I tested setting the focust to a button, and whilt it does appear to have the focus, pressing tab also gives you the default beep.
>
>Tabstop on all 4 items set to .T. Order is LoginID, Password, Enter, Exit