ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / CREATEOBJEC() модальная форма
8 сообщений из 8, страница 1 из 1
CREATEOBJEC() модальная форма
    #35208161
psv73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
psv73
Гость
Прошу помощи. Стал программировать классами и споткнулся при работе с модальной формой...
По нажатию кнопки в форме нужно показать модальную форму, в которой нужно выбрать элемент из списка ListBox-a (путем двойного нажатия или Enter) либо нажать на Esc для отказа от выбора элемента. Вот так вот создается модальная форма.

Код: plaintext
1.
THIS.oform_list = CREATEOBJECT('Form_List')
THIS.oform_list.Show( 1 )

В методе KeyPress модальной формы:

Код: plaintext
1.
2.
3.
4.
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode= 27 
  RELEASE THISFORM
ENDIF

Тоже самое в методе DblClick ListBox-а этой формы

Код: plaintext
RELEASE THISFORM
Но при выполнении указанных команд форма не закрывается. Закрывается только если нажать на Х формы или Ctrl+F4

Выкрутился следующим кодом:
Код: plaintext
1.
THISFOR.Hide()
RELEASE THISFORM

Правильно ли это?!!

И еще вопрос - как передать параметры в форму понятно CREATEOBJECT('Form', parameter1,...), а как вернуть?
Не хотелось бы идти по пути DO FORM

Спасибо.
...
Рейтинг: 0 / 0
23.03.2008, 13:25
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208180
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Все правильно. Модальную форму надо сначала спрятать, а потом уже уничтожать.
Возвращает модальная форма значение в методе Unload, о чем, кстати, и в хелпе написано.
Еще один вариант:
Код: plaintext
1.
2.
3.
4.
THIS.oform_list = CREATEOBJECT('Form_List')
with .oform_list
.Show( 1 )
lValue = .someproperty 
endwith
То есть после show(1) и до endwith из формы можно вытаскивать все что угодно.
...
Рейтинг: 0 / 0
23.03.2008, 13:49
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208198
psv73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
psv73
Гость
Спасибо!!!
...
Рейтинг: 0 / 0
23.03.2008, 14:16
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208221
psv73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
psv73
Гость
... и еще, для прояснения полной картины работы с модальной формой
Sergey SizovВсе правильно. Модальную форму надо сначала спрятать, а потом уже уничтожать.
Возвращает модальная форма значение в методе Unload, о чем, кстати, и в хелпе написано.
Это понятно.

Если можно, уточните, где здесь можно поймать то, что передается в Unload модальной формы?
Sergey Sizov
Код: plaintext
1.
2.
3.
4.
THIS.oform_list = CREATEOBJECT('Form_List')
with .oform_list
.Show( 1 )
lValue = .someproperty 
endwith
...
Рейтинг: 0 / 0
23.03.2008, 14:48
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208262
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
psv73Если можно, уточните, где здесь можно поймать то, что передается в Unload модальной формы?
Sergey Sizov
Код: plaintext
1.
2.
3.
4.
THIS.oform_list = CREATEOBJECT('Form_List')
with .oform_list
.Show( 1 )
lValue = .someproperty 
endwith

Здесь не используется Unload, это совершенно другой способ. Это считывание свойств модальной формы перед ее уничтожением. А уничтожится она только на строке с endwith.
...
Рейтинг: 0 / 0
23.03.2008, 15:47
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208320
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Как из модальной формы, открытой через Show(1) вернуть значение
...
Рейтинг: 0 / 0
23.03.2008, 17:05
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208323
psv73
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
psv73
Гость
Большое всем спасибо!!! Все предельно ясно!
...
Рейтинг: 0 / 0
23.03.2008, 17:11
| Ответить | Цитировать | Написать  
CREATEOBJEC() модальная форма
    #35208801
12345вышелзайчикпогулять
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345вышелзайчикпогулять
Гость
авторЗдесь не используется Unload, это совершенно другой способ. Это считывание свойств модальной формы перед ее уничтожением. А уничтожится она только на строке с endwith.

из модальной класс-формы удобнее всего возвращать что-то именно таким способом
Код: plaintext
1.
2.
3.
4.
loForm = create(.....
with loForm 
  .show( 1 )   &&  в форме на кнопке или еще гдето нужно выполнить hide()
  что-то = .свойство


авторА уничтожится она только на строке с endwith
добавлю

уничтожится, если была loForm была объявлена локально или приват. только
после завершения метода, проц-ры ..,
если паблик - то не уничтожится
...
Рейтинг: 0 / 0
24.03.2008, 09:26
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / CREATEOBJEC() модальная форма
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1588003]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 202ms
total:  319ms
созд. / загр.: 319ms
x
x
Закрыть


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