|
|
|
Выполнение нескольких действий
|
|||
|---|---|---|---|
|
#18+
Дорое утро! Использую нижеприведенный код в программе. Хотелось бы вместо сообщения WAIT вставить свою форму, показывающая допустим процент выполнения индексации. Как запустить эту форму и затем ее закрыть после выполнения этих действий? WAIT 'Иäåò èíäåêñàöèÿ áàçы äàííûõ!' NOWAIT WIND ON ERROR DO errhand WITH ERROR( ) alzan='sprav' USE sprav.dbf excl IF FLOCK() pack reindex ENDIF USE WAIT CLEAR ON ERROR RETURN *** Error *** PROCEDURE errhand PARAMETER errnum =MESSAGEBOX('Ôàéë '+alzan+' çàíÿò äðóãèì ïîëüçîâàòåëåì!'+CHR(13)+'Èíäåêñàöèÿ ýòîãî ôàéëà íå ïðîèçîøëà.', 16, 'Îøèáêà') RETURN ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 11:32 |
|
||
|
Выполнение нескольких действий
|
|||
|---|---|---|---|
|
#18+
Например так: DO FORM inf NAME m_inf LINKED * чтото делаем ..................................... * модифицируем форму m_inf.MyProp=10 RELEASE m_inf Или создать класс своего окна и запустить: m_inf = createobject('inf') m_inf.Show() * чтото делаем ..................................... * модифицируем форму m_inf.MyProp=10 m_inf.Release ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2005, 12:23 |
|
||
|
|
start [/forum/topic.php?fid=41&gotonew=1&tid=1592954]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
183ms |
get topic data: |
9ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 227ms |
| total: | 504ms |
| 0 / 0 |
