|
|
|
Выполнение нескольких действий
|
|||
|---|---|---|---|
|
#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&tid=1592954]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
167ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
| others: | 200ms |
| total: | 459ms |
| 0 / 0 |
