Accessible Object Control in Dialog

[ssimop]

Supposed that in a dialog exists an edit field with an horizontal scroll bar :

12 Edit 0x54130884 0x200 74 3 363 23 ""

A button in this dialog is used to scroll this scroll bar to its right edge :

15 Button 0x54034040 0x4 439 15 10 10 "Button"

calling sub function tam :
Function tempf10

Code:

Copy      Help

#sub tam
function int'hw int'field

Acc a.Find(hw "PUSHBUTTON" "Column right" F"class=Edit[]id={field}" 0x1025 1)
a.Mouse(2)
0.2
key DY

I wonder why it is only statement :

case [15 25]
mac "sub.tam" "" hDlg wParam-3

that works.

If calling tam directly as :

case [15 25]
sub.tam( hDlg wParam-3)

it works up to locating and right clicking the control, but then it does not key.

Any advice is mostly welcome.

[Gintaras]

try
opt waitmsg 1
opt keysync 1

mac also is good. Functions key, lef etc are designed to automate windows of other applications or threads, not dialogs of same thread.

[ssimop]

Many thanks, indeed!