>Hi All,
>
>I'm sure this is a simple question but I'm struggling.
>
>I have a combo box when the user tabs into the combo, then hits f4 the combo list drops down the user can then use the down and up arrows to pick the correct value. When they hit enter it populates the displayvalue and tabs to the next field. Nothing particularly complicated about that, but I would also like to have the same usability for the mouse.
>
>So a user enters the field , either by tab or direct mouse click, clicks on the drop down arrow and then selects the value they want at this point it should complete the displayvalue and tab to the next field. This bit isnt working I tried adding the code to the interactive change but then when you use a keyboard and scroll down through the values the interactive change keeps firing!
>
>I'm sure this is'nt as difficult as I'm making it and any suggestions\advise would be greatly appreciated.
>
>Thanks
>
>Jon
Returning 1 from valid would do it for both. ie:
Public oForm
oForm = Createobject('myForm')
oForm.Show
Define Class myForm As Form
DataSession = 2
Add Object myCombo As ComboBox With ;
left = 10, Top = 10, Width = 250, ;
RowSourceType = 3, ;
RowSource = "Select Company as DispVal, * from ('"+_samples+"data\customer')"+;
" into cursor crsSample nofilter"
Add Object myTextBox1 As TextBox With Left = 270, Top = 10
Add Object myTextBox2 As TextBox With Left = 270, Top = 40
Procedure myCombo.Valid
Return 1
Endproc
Enddefine
Cetin