Add(Memory,781247,414,88)
{
@Hint=#15:Длина сообщения|
}
Add(SendMessage,6884336,365,88)
{
Message=13
WParam=255
link(onSend,781247:doValue,[])
}
Add(InlineCode,4592546,303,88)
{
@Hint=#10:WM_GETTEXT|
WorkPoints=#6:doWork|
EventPoints=#6:onSend|8:onResult|
DataPoints=#3:Len|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|9: private|8: public|20: onSend:THI_Event;|22: onResult:THI_Event;|17: Len:THI_Event;|49: procedure doWork(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|18:var x:string[255];|0:|29:procedure THiAsmClass.doWork;|5:begin|37: _hi_onEvent(onSend,integer(@x[1]));|35: SetLength(x,ToIntegerEvent(Len));|37: _hi_CreateEvent(_Data,@onResult,x);|4:end;|0:|4:end.|
link(onSend,6884336:doSendMessage,[])
link(onResult,9065312:doAdd,[(360,101)(360,153)])
link(Len,781247:Value,[(309,78)(355,78)(355,135)(420,135)])
}
Add(Button,1433222,252,88)
{
Left=285
Top=185
link(onClick,4592546:doWork,[])
}
Add(RichEdit,9065312,385,147)
{
Left=25
Top=100
Width=220
Height=140
}
с помощью вот такой схемы - вычесляю handle элемента из которого мне нужно получить текст.Но проблема в том что handle окна имеет постоянное имя,тогда как handle элемента - цифры и каждый раз разные.Не могу понять,возможно ли вычеслить постоянный "Заголовок" элемента,либо сделать както автоматизированно поиск всех элементов окна и вывод текста с них?
вот схема для вычесления handle (но тока под мышкой показывает).
Add(MainForm,10899554,196,119)
{
Left=10
Top=10
Position=1
}
Add(Timer,5013873,98,119)
{
Interval=100
link(onTimer,11578177:doData,[])
}
Add(MouseEvent,7174544,133,63)
{
Point(Handle)
}
Add(DoData,11578177,147,119)
{
link(onEventData,10899554:doCaption,[])
link(Data,7174544:Handle,[])
}
тоесть основное окно имеет постоянный заголовок,который можно указать программе как handle, но тогда она возвращает только текст заголовка,а мне надо текст из нескольки полей...
Поиск
Друзья
Администрация