Форум » 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: Спасибо всем!



полная версия страницы