ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / экземпляры формы
30 сообщений из 30, показаны все 2 страниц
  все  
экземпляры формы
    #33401645
sunteem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunteem
Гость
Рылась-рылась, не нашла, как сделать, чтоб был единственный экземпляр формы.
=(
...
Рейтинг: 0 / 0
26.11.2005, 16:58
| Ответить | Цитировать | Написать  
экземпляры формы
    #33401795
Aries
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aries
Гость
Что-то я не вьеду в вопрос, а можна поподробнее

Истина где-то там...
...
Рейтинг: 0 / 0
26.11.2005, 22:15
| Ответить | Цитировать | Написать  
экземпляры формы
    #33401828
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Если вопрос стоит в том, чтобы запретить повторный запуск одной и той же формы, то простейший вариант:

ПЕРЕД запуском формы примерно такой код

Код: plaintext
1.
2.
3.
IF TYPE("_VFP.Forms('MyForm')")="U"  
	* Формы со свойством name = MyForm не существует (не открыта)  
ENDIF

Подробнее здесь

Как проверить факт существования переменной памяти, поля таблицы, метода формы
...
Рейтинг: 0 / 0
26.11.2005, 23:33
| Ответить | Цитировать | Написать  
экземпляры формы
    #33402271
sunteem
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sunteem
Гость
пасиба!!
...
Рейтинг: 0 / 0
27.11.2005, 21:35
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474361
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
Почему то данный код не срабатывает. Форма загружается повторно. Name формы = 'myform'. В чем ошибка %(

PROCEDURE IconClickEvent
IF TYPE("_VFP.Forms('myform')")="U"
DO FORM form_hi
ENDIF

ENDPROC
...
Рейтинг: 0 / 0
10.01.2006, 14:47
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474396
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
А еще можно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
#DEFINE TB_FORMDESIGNER_LOC  "Form Designer"
#DEFINE TB_STANDARD_LOC      "Standard"
#DEFINE TB_LAYOUT_LOC        "Layout"
#DEFINE TB_QUERY_LOC  	     "Query Designer"
#DEFINE TB_VIEWDESIGNER_LOC  "View Designer"
#DEFINE TB_COLORPALETTE_LOC  "Color Palette"
#DEFINE TB_FORMCONTROLS_LOC  "Form Controls"
#DEFINE TB_DATADESIGNER_LOC  "Database Designer"
#DEFINE TB_REPODESIGNER_LOC  "Report Designer"
#DEFINE TB_REPOCONTROLS_LOC  "Report Controls"
#DEFINE TB_PRINTPREVIEW_LOC  "Print Preview"
#DEFINE WIN_COMMAND_LOC      "Command"

if WEXIST(TB_FORMDESIGNER_LOC)
	hide window TB_FORMDESIGNER_LOC  &&"Form Designer"
endif
if WEXIST(TB_STANDARD_LOC)
	hide window TB_STANDARD_LOC      &&"Standard"
endif
if WEXIST(TB_LAYOUT_LOC)
	hide window TB_LAYOUT_LOC        &&"Layout"
endif
if WEXIST(TB_QUERY_LOC)
	hide window TB_QUERY_LOC  	     &&"Query Designer"
endif
if WEXIST(TB_VIEWDESIGNER_LOC)
	hide window TB_VIEWDESIGNER_LOC  &&"View Designer"
endif
if WEXIST(TB_COLORPALETTE_LOC)
	hide window TB_COLORPALETTE_LOC  &&"Color Palette"
endif
if WEXIST(TB_FORMCONTROLS_LOC)
	hide window TB_FORMCONTROLS_LOC  &&"Form Controls"
endif
if WEXIST(TB_DATADESIGNER_LOC)
	hide window TB_DATADESIGNER_LOC  &&"Database Designer"
endif
if WEXIST(TB_REPODESIGNER_LOC)
	hide window TB_REPODESIGNER_LOC  &&"Report Designer"
endif
if WEXIST(TB_REPOCONTROLS_LOC)
	hide window TB_REPOCONTROLS_LOC  &&"Report Controls"
endif
if WEXIST(TB_PRINTPREVIEW_LOC)
	hide window TB_PRINTPREVIEW_LOC  &&"Print Preview"
endif
if WEXIST(WIN_COMMAND_LOC)
	hide window WIN_COMMAND_LOC      &&"Command"
endif

авторство не мое но непомню где брал. (наверно на foxclub)
...
Рейтинг: 0 / 0
10.01.2006, 14:56
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474406
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
а еще и вот так попробовать

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
for j= 1  to _screen.formcount
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
   &&форма такая запущена
else
  && формы такой незапущено
  do form APPEND621K
endif
endfor
...
Рейтинг: 0 / 0
10.01.2006, 14:59
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474498
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
S866а еще и вот так попробовать

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
for j= 1  to _screen.formcount
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
   &&форма такая запущена
else
  && формы такой незапущено
  do form APPEND621K
endif
endfor

таким образом вообще не запускается. А что же делать..
...
Рейтинг: 0 / 0
10.01.2006, 15:24
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474753
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
Извиняюсь - там логически неправильно сделано
НАДО ТАК:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
flag= 1 
for j= 1  to _screen.formcount
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
  FLAG= 0  && СБРОСИТЬ ЕСЛИ ФОРМА ЗАПУЩЕНА
endif
endfor
IF FLAG= 1  
   DO FORM APPEND621K
ENDIF
если форма запущена то она обязательно должна быть в массиве _screen.forms
а вот если не срабатывает условие
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
то надо глядеть почему оно не срабатывает - поэтому там и alltrim и upper
стоит.
...
Рейтинг: 0 / 0
10.01.2006, 16:40
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474772
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
Интересно, а почему
IF TYPE("_VFP.Forms('MyForm')")="U"
do form MyForm
ENDIF
не срабатывает.
У меня TYPE("_VFP.Forms('MyForm')") всегда со значением "U"
...
Рейтинг: 0 / 0
10.01.2006, 16:48
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474809
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Надеюсь, понимаешь разницу между значением свойства Name формы и именем файла SCX?

То, что надо подставлять в выражение

IF TYPE("_VFP.Forms('MyForm')")="U"

это НЕ имя файла SCX. Это значение одного из реквизитов (свойств) формы. В данном случае реквизита Name.
...
Рейтинг: 0 / 0
10.01.2006, 16:59
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474824
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
S866Извиняюсь - там логически неправильно сделано
НАДО ТАК:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
flag= 1 
for j= 1  to _screen.formcount
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
  FLAG= 0  && СБРОСИТЬ ЕСЛИ ФОРМА ЗАПУЩЕНА
endif
endfor
IF FLAG= 1  
   DO FORM APPEND621K
ENDIF
если форма запущена то она обязательно должна быть в массиве _screen.forms
а вот если не срабатывает условие
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
то надо глядеть почему оно не срабатывает - поэтому там и alltrim и upper
стоит.
ХОТЯ ВАШ КОд сработал. Странно, вроде существенной разницы с предыдущим вашим примером не было, только else использовалось, за место флага
...
Рейтинг: 0 / 0
10.01.2006, 17:04
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474851
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
ВладимирМНадеюсь, понимаешь разницу между значением свойства Name формы и именем файла SCX?

То, что надо подставлять в выражение

IF TYPE("_VFP.Forms('MyForm')")="U"

это НЕ имя файла SCX. Это значение одного из реквизитов (свойств) формы. В данном случае реквизита Name.

Да конечно, я это понимаю.
...
Рейтинг: 0 / 0
10.01.2006, 17:16
| Ответить | Цитировать | Написать  
экземпляры формы
    #33474926
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Сделай тестовую формочку, запусти ее и в командном окне дай команду

Код: plaintext
?TYPE("_VFP.Forms([Form1])")

Кстати, о какой версии FoxPro идет речь?

А вот такая команда что вернет:

Код: plaintext
?_VFP.Forms([Form1]).name
...
Рейтинг: 0 / 0
10.01.2006, 17:52
| Ответить | Цитировать | Написать  
экземпляры формы
    #33475491
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
ВладимирМСделай тестовую формочку, запусти ее и в командном окне дай команду

Код: plaintext
?TYPE("_VFP.Forms([Form1])")

Кстати, о какой версии FoxPro идет речь?

А вот такая команда что вернет:

Код: plaintext
?_VFP.Forms([Form1]).name


вы знаете, тестовая формочка работает правильно. Возвращается 0 и Form1. Но я нашла в чем проблема. В моей форме form.showwindow=2. Как только я меняю это свойство в тестовой форме, тогда при ее запуске ?TYPE("_VFP.Forms([Form1])") возвращает U.
...
Рейтинг: 0 / 0
11.01.2006, 08:34
| Ответить | Цитировать | Написать  
экземпляры формы
    #33475501
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
to Krushinskaya Olga
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
for j= 1  to _screen.formcount
if alltrim(upper(_screen.forms(j).name))='APPEND621K'
   &&форма такая запущена
else
  && формы такой незапущено
  do form APPEND621K
endif
endfor

тут elase do form выполнится _screen.formcount-1 раз (где formcount - кол-во откр. форм в момент начала цикла. т.к. он будет увеличиваться при каждом следующем do form).

Для ВладимираМ - у меня правило одинаково обзывать name - формы и имя файла scx - во избежании путаницы.
...
Рейтинг: 0 / 0
11.01.2006, 08:43
| Ответить | Цитировать | Написать  
экземпляры формы
    #33475737
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
а у нас в квартире газ

на взлете присваиваем форме уникальный дескриптор
и делов - та
...
Рейтинг: 0 / 0
11.01.2006, 10:31
| Ответить | Цитировать | Написать  
экземпляры формы
    #33475985
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
to alex11100
а как вы по дискриптору к форме обращаться будете?
а по имени просто
Код: plaintext
APPEND621K.text1.value='fdfhd'
из любой другой формы.
...
Рейтинг: 0 / 0
11.01.2006, 11:34
| Ответить | Цитировать | Написать  
экземпляры формы
    #33476074
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
это примерчик, но он не в тему
а если вообчета оч.интересно, то могу заселить смуту в головы людские

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
* защита на случай, если форма станет неактивной
if !pemstatus(_screen.ActiveForm,"setfilter", 5 )
    local loForm, lcFormNameOld
    for each loForm in _screen.Forms
        if pemstatus(loForm,"cDescript", 5 ) and this.cFormDescript=loForm.cDescript
             lcFormNameOld = loForm.name
             loForm.name = "Form"+this.cFormDescript
             activate window ("Form"+this.cFormDescript)
             loForm.name   = lcFormNameOld
        endif
    endfor
endif
...
Рейтинг: 0 / 0
11.01.2006, 11:55
| Ответить | Цитировать | Написать  
экземпляры формы
    #33476317
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoshaS
Участник
Я использую такой код для проверки повторного запуска формы.
Код: plaintext
1.
2.
3.
4.
5.
6.
IF !WEXIST('f_spr_predpr')
	PUBLIC f_spr_predpr
	DO FORM f_spr_predpr NAME f_spr_predpr LINKED
ELSE 
	f_spr_predpr.show
ENDIF
...
Рейтинг: 0 / 0
11.01.2006, 13:02
| Ответить | Цитировать | Написать  
экземпляры формы
    #33476565
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Если есть ссылка на объект - форму, то можно узнать имя ее .SCX - файла
SYS(1271, oObjectFormName)
Можно пройтись циклом по всей коллекции _SCREEN.Forms(), то можно легко найти требуемую форму и активизировать ее.
Код: plaintext
1.
2.
3.
4.
5.
IF UPPER(SUBSTR(SYS( 1271 , m.loForm), RAT("\", SYS( 1271 , m.loForm))+  1 )) ==   UPPER(m.tcForm - ".scx")
*-- Нашли форму в списке активных форм треб.форму
*-- Надо активизировать форму
m.lcNameForm = m.loForm.Name
ACTIVATE Window &lcNameForm
ENDIF
С уважением, Алексей
...
Рейтинг: 0 / 0
11.01.2006, 14:23
| Ответить | Цитировать | Написать  
экземпляры формы
    #33476637
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
А почему TYPE("_VFP.Forms([Form1])") все время равно U при Form1.showWindow=2?
...
Рейтинг: 0 / 0
11.01.2006, 14:42
| Ответить | Цитировать | Написать  
экземпляры формы
    #33477506
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Krushinskaya OlgaА почему TYPE("_VFP.Forms([Form1])") все время равно U при Form1.showWindow=2?
Дело в том, что указание в качестве параметра символьной строки - это НЕ документированная возможность. Т.е. в описании ясно указано, что параметром коллекции Forms() может быть только число.

Как следствие, такое использование не всегда предсказуемо.

"Правильным" является именно полный перебор вообще всей коллекции форм и поиск нужной формы по какому-либо уникальному реквизиту.

Хотя, "еще более правильным" является создание собственного стэка запущенных форм. Т.е. где-то отдельно вести список тех форм, которые уже запущены.
...
Рейтинг: 0 / 0
11.01.2006, 19:29
| Ответить | Цитировать | Написать  
экземпляры формы
    #33478069
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Кстати, оказалось, что TYPE("_VFP.Forms([Form1])") равно "U" при Form1.showWindow=2 не все время, а только в том случае, если искомая форма не является активной на момент проверки. Т.е. в качестве _Screen.ActiveForm указана другая форма (или ничего не указано)
...
Рейтинг: 0 / 0
12.01.2006, 10:25
| Ответить | Цитировать | Написать  
экземпляры формы
    #33478125
Krushinskaya Olga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Krushinskaya Olga
Гость
Да точно так и получается.
Значит придется перебирать весь стэк
...
Рейтинг: 0 / 0
12.01.2006, 10:40
| Ответить | Цитировать | Написать  
экземпляры формы
    #33488981
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
2 Krushinskaya Olga

Я конечно извиняюсь - но почему вы массив Forms() Стэком обзываете .
СТЭК насколько я помню это первый пришел - последний вышел.
а в Forms() - произвольный доступ к любому элементу массива.

или я не прав?
...
Рейтинг: 0 / 0
18.01.2006, 11:43
| Ответить | Цитировать | Написать  
экземпляры формы
    #33489031
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Стеки бывают разные: FIFO (то, что вы описали), LIFO
Дело в том, что в массив FORMS VFP помещает формы по очередности создания.
С уважением, Алексей
...
Рейтинг: 0 / 0
18.01.2006, 11:56
| Ответить | Цитировать | Написать  
экземпляры формы
    #33489043
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
S866Я конечно извиняюсь - но почему вы массив Forms() Стэком обзываете .
СТЭК насколько я помню это первый пришел - последний вышел.
а в Forms() - произвольный доступ к любому элементу массива.

или я не прав?
Потому что этот массив во многом похож на стек.

При открытии новой формы она оказывается в массиве Forms() с индексом 1. Т.е. не последняя, а первая в списке. Происходит сдвиг всей "очереди".

Правда, при определенных условиях, форма может поменять индекс в массиве Forms. Но это событие связано с явным перемещением форм на передний план. Не просто сделали активной форму, а именно программно вытащили наверх. По сути, изменили стек вызова.

Соответственно, при закрытии форм содержимое массива Forms() постоянно сдвигается.

На этой особенности построено большинство процедур автоматического закрытия всех открытых форм. В порядке их следования.
...
Рейтинг: 0 / 0
18.01.2006, 12:02
| Ответить | Цитировать | Написать  
экземпляры формы
    #33489713
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
Спасибо я вас Aleksey-K и ВладимирМ понял - принцип заполнения Forms() фоксом как у стэка - и он именно похож - основное отличие - у стэка доступ только к одному верхнему элементу СТЭКА а здесь а программиста произвольный доступ к Forms().
...
Рейтинг: 0 / 0
18.01.2006, 15:36
| Ответить | Цитировать | Написать  
экземпляры формы
    #33493128
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi Aleksey!

Строго формально FIFO - т.е. "первый пришёл, первый ушёл" - это не стек а
очередь, а вот LIFO это как раз стек - и s866 как раз в этом смысле
говорил...
_SCREEN.FORMS() - это не есть ни стек ни коллекция в чистом виде - поскольку
заполняется то она как стек (причём внутренними, недоступными нам
процедурами самой среды) - а вот доступ к элементам обеспечивается
произвольный - при этом для коллекции _VFP.Forms() не только по индексу но и
по имени формы (но с ограничениями).

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
20.01.2006, 01:07
| Ответить | Цитировать | Написать  
30 сообщений из 30, показаны все 2 страниц
  все  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / экземпляры формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=41&tid=1592580]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 167ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 81ms
get tp. blocked users:
 2ms
others: 193ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]