Форум » GUI » Как программно нажать Кнопку » Ответить
Как программно нажать Кнопку
Vlad04: Где-то про это было, но не нашел.Надо послать сообщение..
Ответов - 10
Dima: Фокус ввода на кнопку , затем _PushKey(VK_SPACE) например
Vlad04: С одной кнопкой получается нормально, а три последовательно нет. ACTION {||FrmGL.vibor.Setfocus,_PushKey(VK_SPACE),FrmGL.Button_8.Setfocus,_PushKey(VK_SPACE),FrmGL.vibor2.Setfocus,_PushKey(VK_SPACE)} Получается три нажатия последней кнопки
Dima: А если после каждого нажатия вставить doevents() ? или каждую пару обернуть doevents(FrmGL.vibor.Setfocus,_PushKey(VK_SPACE))
Vlad04: получилось ок!
Петр: Vlad04 пишет: ACTION {||FrmGL.vibor.Setfocus,_PushKey(VK_SPACE),FrmGL.Button_8.Setfocus,_PushKey(VK_SPACE),FrmGL.vibor2.Setfocus,_PushKey(VK_SPACE)} Лучше как-то так ACTION {|| PressMe( FrmGL.vibor.Handle ), PressMe( FrmGL.Button_8.Handle ), PressMe( FrmGL.vibor2.Handle ) } #include "i_winuser.ch" procedure PressMe( hButton ) SendMessage( hButton, BM_CLICK, 0, 0 )
gfilatov2002: Петр пишет: Лучше как-то так Можно это сделать еще проще ACTION {|| FrmGL.vibor.OnClick(), FrmGL.Button_8.OnClick(), FrmGL.vibor2.OnClick() }
Dima: Совершенству нет предела
Петр: Vlad04 пишет: Надо послать сообщение.. gfilatov2002 пишет: ACTION {|| FrmGL.vibor.OnClick(), FrmGL.Button_8.OnClick(), FrmGL.vibor2.OnClick() } Согласитесь, что это неможко не то..
gfilatov2002: Петр пишет: Согласитесь, что это неможко не то Согласен Но для меня главное - это результат...
Vlad04: Спасибо всем!
полная версия страницы