Вверх ↑
Этот топик читают: Гость
Ответов: 47
Рейтинг: 0
#136: 2017-04-14 14:00:48 ЛС | профиль | цитата
Всем спасибо за участие! Буду все варианты пробовать.
карма: 0

0
Ответов: 47
Рейтинг: 0
#137: 2017-04-14 15:48:49 ЛС | профиль | цитата
Элемент KeyEvent - эмуляция нажатия кнопок. Я понял что нажатия можно отправить только в окна чётко зная их идентификатор и заголовок? а если у меня программа свой заголовок меняет например:
PUNCH5 Rel 15.025 - ACUTE 2510 - 51 st. - [Z:\Z-=-CONFIG-=-\MACROS\DRAG&DROP\DIM(891.88,861.88,2.5).PAR] - [View 1 (Z:\Z-=-CONFIG-=-\MACROS\DRAG&DROP\DIM(891]
где неизменно остается только PUNCH5 Rel 15.025 а все остальное меняется. Можно отправить нажатие не в окно, а в программу (запущенный процесс)?

Нашел на форуме образец программы под мой случай, но он толком не хочет работать. Отправляет нажатие один два раза и все глухо

#15: 2009-06-25 22:54:06
Леонид писал(а):
MireX, ох! code_13903.txt, не забыть открыть Блокнот


Идентификатор с именем окна находит, сворачивает разворачивает а нажатие не проходит. Видно что окно как то реагирует на отправку но не более.

Редактировалось 5 раз(а), последний 2017-04-14 16:15:49
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#138: 2017-04-14 16:27:58 ЛС | профиль | цитата
SaturN26 писал(а):
Можно отправить нажатие не в окно, а в программу (запущенный процесс)?

Нет. Отправить можно только окну, тк только к окну, а не к процессу привязывается обработчик сообщений. Определи класс окна, он не меняется просто так. При поиске окна можно игнорировать заголовок и искать окно только по его классу (свойство SkipParam (пропустить параметр) в компоненте FindWindow)

Редактировалось 4 раз(а), последний 2017-04-14 16:31:04
карма: 22

0
Ответов: 47
Рейтинг: 0
#139: 2017-04-14 16:57:00 ЛС | профиль | цитата
ну вот нашел я класс окна, его заголовок. на 1С проверял А почему может не срабатывать KeyEvent


Add(MainForm,2953706,42,112)
{
}
Add(Edit,7280601,371,133)
{
Left=65
Top=5
Width=195
Text="*УПП*"
link(onEnter,5526873:doEvent1,[])
}
Add(Edit,10241453,371,245)
{
Left=65
Top=55
Width=195
Enabled=1
Text=""
DataType=2
ReadOnly=0
link(Str,11809523:Var1,[(377,232)])
}
Add(WinEnum,13379621,392,189)
{
VisibleOnly=1
link(onFindWindow,10143571:doCompare,[])
}
Add(Label,7381753,434,77)
{
Left=5
Top=10
Width=57
Height=17
Caption="Название:"
}
Add(Label,7446230,385,77)
{
Left=5
Top=60
Width=59
Height=17
Caption="Результат:"
}
Add(Button,279179,343,189)
{
Left=5
Top=30
Width=255
Caption="Найти индетификатор по названию"
link(onClick,13379621:doEnum,[])
}
Add(KeyEvent,4605242,434,413)
{
link(Handle,10241453:Text,[(440,345)(377,345)])
link(Code,13150169:String,[(447,271)(524,271)])
}
Add(ComboBox,13150169,511,217)
{
Left=65
Top=120
Width=65
Height=21
Strings=#2:65|3:112|3:113|3:114|3:115|3:116|3:117|3:118|3:119|3:120|3:121|
ReadOnly=0
}
Add(Label,14262023,329,77)
{
Left=5
Top=125
Width=52
Height=17
Caption="Клавиша:"
}
Add(Button,2035512,329,378)
{
Left=135
Top=120
Width=70
Height=22
Caption="Нажать"
link(onClick,4605242:doPressDown,[(377,384)(377,426)])
}
Add(StrMask,10143571,448,189)
{
Mask="УПП*"
Point(doMask)
link(onTrue,10241453:doText2,[(492,202)(492,223)(366,223)(366,258)])
}
Add(Hub,5526873,413,140)
{
link(onEvent1,7280601:doText2,[(437,146)(437,125)(359,125)(359,146)])
link(onEvent2,10143571:doMask,[(437,153)(437,202)])
}
Add(GetDataEx,11809523,392,227)
{
link(Data,13379621:Handle,[])
}

переделывал из другой программы

Редактировалось 2 раз(а), последний 2017-04-14 16:58:08
карма: 0

0
Ответов: 47
Рейтинг: 0
#140: 2017-04-21 16:08:25 ЛС | профиль | цитата
Не понимаю как мне отправить в окно комбинацию alt+f затем "o" друг за другом

Редактировалось 1 раз(а), последний 2017-04-21 16:18:21
карма: 0

0
Ответов: 47
Рейтинг: 0
#141: 2017-05-10 10:21:12 ЛС | профиль | цитата
Здравствуйте! Использую команду StringTable, в моей таблице два столбца Наименование и количество. Как мне при нажатие в сформированной таблице на строке получать отдельно значение столбца Наименование и отдельно столбца Количество. Пока получается все значения в одну строчку через " ; "
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#142: 2017-05-10 11:43:04 ЛС | профиль | цитата

Add(MainForm,2953706,21,105)
{
link(onCreate,7730192:doEnum,[])
}
Add(StringTable,12149,119,119)
{
Left=20
Top=20
Width=345
Height=130
Columns=#16:Наименование=200|14:Количество=120|
Grid=0
link(onClick,6054953:doSplit,[(165,125)(165,162)(114,162)(114,181)])
}
Add(MultiStrData,6054953,126,175)
{
link(Str,12149:Select,[])
link(onPart1,14658796:doText,[])
link(onPart2,10768572:doText,[])
}
Add(StrList,11032888,56,49)
{
Strings=#9:Яблоки;10|8:Груши;20|8:Сливы;30|
}
Add(ArrayEnum,7730192,70,119)
{
link(onItem,12149:doAdd,[])
link(Array,11032888:Array,[])
}
Add(Label,14658796,217,175)
{
Left=245
Top=175
}
Add(Label,10768572,175,182)
{
Left=240
Top=205
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:SaturN26
Ответов: 47
Рейтинг: 0
#143: 2017-05-10 11:54:09 ЛС | профиль | цитата
Tad Спасибо огромное
карма: 0

0
Ответов: 47
Рейтинг: 0
#144: 2017-05-10 14:29:59 ЛС | профиль | цитата
А как сделать что бы ширина столбца растягивалась по содержимому. Или где задать принудительно ширину?
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#145: 2017-05-10 14:50:48 ЛС | профиль | цитата
SaturN26 писал(а):
Или где задать принудительно ширину?

В свойствах столбцов, после знака "=" стоит ширина столбца. Автоширина в стандартном StringTable не предусмотрена
карма: 22

1
Голосовали:SaturN26
Ответов: 47
Рейтинг: 0
#146: 2017-05-10 15:04:31 ЛС | профиль | цитата
Спасибо
карма: 0

0
Ответов: 47
Рейтинг: 0
#147: 2017-05-20 08:05:02 ЛС | профиль | цитата
Как сделать что бы окно закрывалось по клику правой кнопкой мыши?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#148: 2017-05-20 09:17:07 ЛС | профиль | цитата

Add(MainForm,15708176,266,119)
{
Width=870
Height=598
Position=1
Point(onClose)
Point(onMouseDown)
Point(onMouseUp)
link(onMouseUp,8215476:doEvent,[])
}
Add(IndexToChanel,8215476,343,154)
{
link(onEvent2,15708176:doClose,[(389,167)(389,200)(254,200)(254,146)])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:SaturN26
Ответов: 47
Рейтинг: 0
#149: 2017-05-20 11:51:42 ЛС | профиль | цитата
Спасибо!
карма: 0

0
Ответов: 47
Рейтинг: 0
#150: 2017-05-22 12:46:45 ЛС | профиль | цитата


Можно ли информацию из окна программы найти и скопировать

ClassName: PanelWindowCL
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)