Есть 3 кода:
Первый Tad'a:
code_75 Этот код рабочий, но есть вопросы с модальностью. У меня на проекте не воспроизводится. Не знаю почему.
Есть код Galkov'a:
Add(MainForm,13302103,21,105)
{
Left=20
Top=105
}
Add(ChildForm,11094603,343,98)
{
link(onEvent1,14866329:doEvent1,[(385,104)(385,142)(228,142)(228,160)])
}
BEGIN_SDK
Add(EditMulti,1353078,3,3)
{
EventCount=1
WorkCount=3
Width=195
Height=204
link(doWork1,5888265:doVisible,[(14,9)(14,90)])
link(doWork2,12398991:doPosition,[(22,16)(22,48)])
link(doWork3,5888265:doClose,[(47,23)(47,83)])
}
Add(MainForm,5888265,91,56)
{
Left=35
Top=105
Height=75
Color=-16777212
Font=[Tahoma,8,0,0,204]
Caption="Поиск чего то очень нужного...."
BorderStyle=4
ShowType=1
TaskBar=1
Visible=1
Cursor=5
MouseCapture=0
Position=1
Point(doVisible)
link(onCreate,4579374:doHideSYSMENU,[(134,97)(134,110)(81,110)(81,146)])
}
Add(ProgressBar,12398991,42,42)
{
Width=394
Height=24
Max=1000
Smooth=1
ProgressColor=16711680
}
Add(SysMenu,4579374,91,119)
{
link(Handle,5888265:Handle,[(97,100)(97,121)])
}
Add(Button,503237,91,14)
{
Left=335
Top=30
link(onClick,1353078:onEvent1,[(160,20)(160,9)])
}
END_SDK
Add(Button,15498871,77,105)
{
Left=10
Top=10
Width=80
Height=25
Caption="&Push"
link(onClick,16218418:doEvent1,[])
}
Add(Hub,16218418,133,105)
{
OutCount=3
link(onEvent1,14709:doTimer,[])
link(onEvent2,11094603:doWork1,[(177,118)(177,104)])
}
Add(Timer,14709,238,105)
{
Interval=10
Enable=1
AutoStop=1000
Point(onStop)
link(onTimer,8270629:doNext,[])
link(onStop,11094603:doWork3,[])
}
Add(Counter,8270629,294,105)
{
Max=1000
link(onNext,11094603:doWork2,[])
}
Add(Message,1960843,189,119)
{
Message="Вторая модальная форма"
}
Add(Hub,14866329,238,154)
{
link(onEvent1,14709:doStop,[(280,160)(280,146)(228,146)(228,118)])
link(onEvent2,8270629:doReset,[(282,167)(282,125)])
}
Я объединил два кода и получил вот это:
Add(MainForm,2037592,322,196)
{
Left=20
Top=105
Point(Left)
Point(Top)
}
Add(Button,15498871,322,350)
{
Left=10
Top=10
Width=80
Height=25
link(onClick,16218418:doEvent1,[])
}
Add(DoData,9819621,490,420)
{
Data=Integer(0)
link(onEventData,6807365:doWork3,[(614,426)(614,272)])
}
Add(Hub,16218418,406,350)
{
OutCount=6
link(onEvent1,15623828:doClear,[])
link(onEvent2,3986514:doData,[(492,363)(492,209)])
link(onEvent3,6807365:doWork1,[(572,370)(572,258)])
link(onEvent5,5309761:doFor,[(492,384)(492,377)])
}
Add(ChildForm,6807365,707,252)
{
link(onEvent1,5309761:doStop,[(749,258)(749,327)(536,327)(536,384)])
link(Data1,2037592:Left,[(713,247)(335,247)])
link(Data2,2037592:Top,[(720,247)(342,247)])
}
BEGIN_SDK
Add(EditMulti,1353078,3,3)
{
EventCount=1
WorkCount=4
DataCount=2
Width=328
Height=323
link(doWork1,5888265:doVisible,[(47,9)(47,90)])
link(doWork2,12398991:doPosition,[(22,16)(22,48)])
link(doWork3,5888265:doClose,[(47,23)(47,83)])
link(doWork4,12398991:doMax,[(22,30)(22,55)])
}
Add(MainForm,5888265,91,56)
{
Left=35
Top=105
Height=75
Color=-16777212
Font=[Tahoma,8,0,0,204]
Caption="Поиск чего то очень нужного...."
BorderStyle=4
ShowType=1
TaskBar=1
Visible=1
Cursor=5
MouseCapture=0
Position=1
Point(doVisible)
link(onCreate,10465290:doEvent1,[(133,97)(133,176)(4,176)(4,258)])
}
Add(ProgressBar,12398991,42,42)
{
Width=394
Height=24
Max=1000
Smooth=1
ProgressColor=16711680
Point(doMax)
}
Add(SysMenu,4579374,91,196)
{
link(Handle,14140281:Data1,[])
}
Add(Button,503237,91,14)
{
Left=335
Top=30
Caption="Отмена"
link(onClick,1353078:onEvent1,[(227,20)(227,9)])
}
Add(Math,13674102,147,252)
{
Op2=150
link(Op1,1353078:Data2,[(153,128)(16,128)])
}
Add(PosWindow,3209915,91,252)
{
link(Handle,14140281:Data2,[(97,205)(104,205)])
link(Left,1353078:Data1,[(104,128)(9,128)])
link(Top,13674102:Result,[(111,242)(139,242)(139,302)(153,302)])
}
Add(GetData,14140281,91,119)
{
link(Data,5888265:Handle,[(97,114)(97,114)])
}
Add(Hub,10465290,14,252)
{
OutCount=4
link(onEvent1,4579374:doHideSYSMENU,[(68,258)(68,223)])
link(onEvent2,13674102:doOperation,[(96,265)(96,258)])
link(onEvent3,3209915:doLeft,[(68,272)(68,258)])
link(onEvent4,3209915:doTop,[(68,279)(68,265)])
}
END_SDK
Add(For,5309761,546,371)
{
Start=1
link(onEvent,3859791:doEvent1,[])
link(onStop,9819621:doData,[(588,384)(588,411)(480,411)(480,426)])
link(End,1774201:Data1,[(559,303)(552,303)])
}
Add(GlobalVar,11852600,546,119)
{
Name="n"
Data=Integer(10000)
}
Add(Hub,3859791,588,371)
{
OutCount=3
link(onEvent1,8763891:doProcessMessages,[])
link(onEvent2,15623828:doInsert,[])
link(onEvent3,6976788:doData,[(630,391)(630,411)(536,411)(536,426)])
}
Add(DoData,6976788,546,420)
{
link(onEventData,6807365:doWork2,[(642,426)(642,265)])
link(Data,5309761:Position,[])
}
Add(StringTable,15623828,707,343)
{
Left=110
Top=10
Width=265
Height=250
Columns=#5:Число|
Grid=0
Redaction=1
Point(doInsert)
}
Add(GetData,1774201,546,147)
{
link(Data,11852600:Var,[])
}
Add(DoData,3986514,546,203)
{
link(onEventData,6807365:doWork4,[(642,209)(642,279)])
link(Data,1774201:Data2,[(552,191)(559,191)])
}
Add(Application,8763891,651,371)
{
}
Это код хорош тем, что форма отобразилась, но работа по циклу не идет. Не смотря на Application.
Помогите, если не трудно. Осталось только это....
Заранее всем спасибо большое.
[size=-2]------ Добавлено в 12:55
tsdima - ты волшебник. То что нужно.