в проекте 2 кнопки вверх и вниз.
Задача: при нажатии кнопки и удержании на выходе DoData с периодом появлялась соответствующая этой кнопки стринговая строка. При отпускании ничего не передавалось.
У меня вроде работает, но при нажатии "вверх" выборка стинговой строки происходит нормально, а вот при нажатии кнопки вниз. кнопка подвисает, и реакции на нажание нет. Укажите верное направление
Мне надо чтобы чётко работало. Нажал и держишь , идет одна строка. отжал ничего не идет. другую нажал идет другая строка. отжал ничего не идёт
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(Button,11643805,70,189)
{
Left=200
Top=10
Width=90
Height=35
Caption="Вверх"
RespondToEnter=0
Point(onMouseDown)
Point(onMouseUp)
link(onMouseDown,9186986:doEvent1,[(118,202)(118,188)])
link(onMouseUp,12590787:doStop,[])
}
Add(Button,2563829,70,273)
{
Left=200
Top=60
Width=90
Height=35
Caption="Вниз"
RespondToEnter=0
Point(onMouseUp)
Point(onMouseDown)
link(onMouseUp,26374:doEvent1,[(121,286)(121,244)])
link(onMouseDown,14237603:doStop,[(156,293)(156,300)])
}
Add(ChanelToIndex,6346270,329,224)
{
Count=3
link(onIndex,7921068:doSelect,[])
}
Add(ListBox,7921068,385,182)
{
Left=295
Top=420
Width=120
Height=100
Visible=1
Strings=#0:|4:@1#2|4:#1@2|0:|0:|
Point(onSelect)
Point(doSelect)
Point(String)
link(onSelect,8495156:doData,[(429,202)(429,248)(387,248)(387,286)])
}
Add(DoData,8495156,406,280)
{
link(Data,7921068:String,[])
}
Add(Timer,12590787,224,196)
{
Interval=200
Enable=1
link(onTimer,6346270:doWork2,[(282,202)(282,237)])
}
Add(Timer,14237603,224,287)
{
Interval=200
Enable=1
link(onTimer,6346270:doWork3,[(289,293)(289,244)])
}
Add(Hub,2769430,273,154)
{
InCount=2
OutCount=1
link(onEvent1,6346270:doWork1,[(308,160)(308,230)])
}
Add(Hub,9186986,133,182)
{
link(onEvent1,12590787:doTimer,[(175,188)(175,202)])
link(onEvent2,2769430:doEvent1,[(210,195)(210,160)])
}
Add(Hub,26374,133,238)
{
link(onEvent1,14237603:doTimer,[(175,244)(175,293)])
link(onEvent2,2769430:doEvent2,[(210,251)(210,167)])
}
Поиск
Друзья
Администрация