Вверх ↑
Ответов: 6
Рейтинг: 0
#1: 2020-10-21 13:24:35 ЛС | профиль | цитата
Пытаюсь получит текст строки из LISTBOX схема уходит в рунтайм.


Add(ListBox,6998449,504,28)
{
Left=5
Top=335
Width=610
Height=355
Font=[MS Sans Serif,12,1,0,1]
Strings=#10:Строка 1 .|11:Строка 2 ..|12:Строка 3 ...|13:Строка 4 ....|
Point(Index)
Point(doSelect)
Point(onSelect)
Point(Handle)
Point(PHandle)
}
Add(SendMessage,14145821,532,161)
{
Message=13
Point(Message)
link(onSend,987624:doText,[])
link(Handle,6490718:Var2,[])
link(WParam,8551881:Var,[(545,122)(551,122)])
link(Message,3945192:Var,[(559,138)(568,138)])
}
Add(GlobalVar,3945192,562,101)
{
Name="LB_GETCOUNT: Integer = $18B;"
Data=Integer(395)
}
Add(GlobalVar,8551881,545,80)
{
Name="1"
Data=Integer(1)
}
Add(Button,1406896,343,161)
{
Left=205
Top=20
Width=130
Caption="Количество Стр"
link(onClick,11948046:doEvent1,[])
}
Add(Edit,987624,664,161)
{
Left=340
Top=20
Width=590
}
Add(Hub,11948046,476,161)
{
link(onEvent1,14145821:doSendMessage,[])
}
Add(SendMessage,4830632,469,497)
{
Message=13
Point(Message)
link(onSend,16133515:doText,[])
link(Handle,6490718:Var1,[(475,117)])
link(WParam,11175836:Var,[(482,460)(481,460)])
link(Message,9920424:Var,[(496,474)(505,474)])
}
Add(GlobalVar,9920424,499,437)
{
Name="LB_SETCURSEL: Integer = $186;"
Data=Integer(392)
}
Add(GlobalVar,11175836,475,409)
{
Name="1"
Data=Integer(1)
}
Add(Button,12995872,343,497)
{
Left=205
Top=70
Width=130
Caption="Выбранная Стр"
link(onClick,3930054:doEvent1,[])
}
Add(Edit,16133515,601,497)
{
Left=340
Top=70
Width=590
}
Add(Hub,3930054,413,497)
{
link(onEvent1,4830632:doSendMessage,[])
}
Add(GetDataEx,1803166,532,98)
{
link(Data,11171630:Var2,[])
}
Add(GetDataEx,6490718,532,112)
{
link(Data,1803166:Var2,[])
}
Add(SendMessage,6927793,518,301)
{
Message=13
Point(Message)
link(onSend,14013958:doText,[])
link(Handle,1803166:Var1,[(524,103)])
link(WParam,1038386:Var,[(531,262)(537,262)])
link(Message,4230707:Var,[(545,278)(554,278)])
}
Add(GlobalVar,4230707,548,241)
{
Name="LB_SELECTSTRING: Integer = $18C;"
Data=Integer(390)
}
Add(GlobalVar,1038386,531,220)
{
Name="2"
Data=Integer(2)
}
Add(Button,12937074,343,301)
{
Left=205
Top=45
Width=130
Caption="Выбрать Стр"
link(onClick,1211021:doEvent1,[])
}
Add(Edit,14013958,650,301)
{
Left=340
Top=45
Width=590
}
Add(Hub,1211021,462,301)
{
link(onEvent1,6927793:doSendMessage,[])
}
Add(SendMessage,11971428,385,798)
{
Message=13
Point(Message)
link(onSend,2203774:doText,[])
link(Handle,11171630:Var1,[(391,89)])
link(WParam,8594871:Var,[(398,761)(411,761)])
link(Message,14111385:Var,[(412,775)(421,775)])
}
Add(GlobalVar,14111385,415,738)
{
Name=" LB_GETTEXT: Integer = $189;"
Data=Integer(393)
}
Add(GlobalVar,8594871,405,710)
{
Name="1"
Data=Integer(1)
}
Add(Button,7299247,266,798)
{
Left=205
Top=120
Width=130
Caption="Текс Стр"
link(onClick,8662094:doEvent1,[])
}
Add(Edit,2203774,517,798)
{
Left=340
Top=120
Width=590
}
Add(Hub,8662094,329,798)
{
link(onEvent1,11971428:doSendMessage,[])
}
Add(GetDataEx,11171630,532,84)
{
link(Data,5279890:Var2,[])
}
Add(SendMessage,5442742,462,644)
{
Message=13
Point(Message)
link(onSend,7180028:doText,[])
link(Handle,5279890:Var1,[(468,75)])
link(WParam,5456717:Var,[(475,607)(474,607)])
link(Message,5907470:Var,[(489,621)(498,621)])
}
Add(GlobalVar,5907470,492,584)
{
Name="LB_GETTEXTLEN: Integer = $18A;"
Data=Integer(394)
}
Add(GlobalVar,5456717,468,556)
{
Name="3"
Data=Integer(3)
}
Add(Button,6898713,343,644)
{
Left=205
Top=95
Width=130
Caption="Длинс Стр"
link(onClick,2095071:doEvent1,[])
}
Add(Edit,7180028,594,644)
{
Left=340
Top=95
Width=590
}
Add(Hub,2095071,406,644)
{
link(onEvent1,5442742:doSendMessage,[])
}
Add(GetDataEx,5279890,532,70)
{
link(Data,6998449:Handle,[])
}


Winapi Брал тут http://docwiki.embarcadero.com/Libraries/XE2/en/Winapi.Messages
карма: 0

0