FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Опять новички за свое...
Олег_	Олег_ 07.12.04 17:18:30 Здравствуйте! Опять дурацкий вопрос, который задают здесь все, кто только может. Однако я, перед тем как спросить, почитал что пишут на форуме, но подобное уже делал или сделал. config.fpw SCREEN=OFF CODEPAGE=1251 RESOURCE=FoxUser.dbf SET TMP=C:\TEMP Заголовок программы: _SCREEN.hide SET CONSOLE OFF SET SYSMENU OFF _vfp.visible=.f. Все очень просто - у меня НИКАКИХ форм, после проверки на наличие нужных каталогов запускается функция GETFILE(). Вот при вышеприведенных установках вместе с главным окном FOX пропадает и окошко с выбором файла... Как быть, не подскажите?

Олег_

07.12.04 17:18:30

Здравствуйте!
Опять дурацкий вопрос, который задают здесь все, кто только может. Однако я, перед тем как спросить, почитал что пишут на форуме, но подобное уже делал или сделал.
config.fpw
SCREEN=OFF
CODEPAGE=1251
RESOURCE=FoxUser.dbf
SET TMP=C:\TEMP

Заголовок программы:
*_SCREEN.hide
SET CONSOLE OFF
SET SYSMENU OFF
*_vfp.visible=.f.

Все очень просто - у меня НИКАКИХ форм, после проверки на наличие нужных каталогов запускается функция GETFILE().
Вот при вышеприведенных установках вместе с главным окном FOX пропадает и окошко с выбором файла...
Как быть, не подскажите?

Re: Опять новички за свое...
po2 Автор Сообщений: 2864 Откуда: Иркутск Дата регистрации: 22.12.2001	po2 07.12.04 18:52:16 Потребуется форма, но ма-а-а-ленькая, в нужном месте примерно такой код(проверялся в VFP8SP1): publ oDT oDT = createobject('DT') with oDT .titlebar = 0 .MinHeight = 0 .MinWidth = 0 .Width = 1 .Height = 1 .Left = sysm(2)/2 .Top = sysm(1)/2 .autocenter = .t. .show() = getfile() .release() rele oDT endw defi clas dt as Form borderstyle = 0 showintaskbar =.f. showwindow = 2 name = 'dt' enddefine ------------------

Re: Опять новички за свое...

po2
Автор

Сообщений: 2864
Откуда: Иркутск
Дата регистрации: 22.12.2001

po2

07.12.04 18:52:16

Потребуется форма, но ма-а-а-ленькая

, в нужном месте примерно такой код(проверялся в VFP8SP1):


publ oDT
     oDT = createobject('DT')
with oDT
    .titlebar = 0
    .MinHeight = 0
    .MinWidth = 0
    .Width = 1
    .Height = 1
    .Left = sysm(2)/2
    .Top = sysm(1)/2
    .autocenter = .t. 
    .show()
   = getfile()
    .release()
rele oDT
endw
defi clas dt as Form
     borderstyle = 0
     showintaskbar =.f.
     showwindow = 2  
     name = 'dt'  
enddefine

------------------

Re: Опять новички за свое...
Олег_	Олег_ 08.12.04 10:55:05 Спасибо! Красиво вопрос решается! Таким путем я еще не шел - пытался в лоб решить задачу, а тут вон оно как! В обход Тема закрыта.

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 3 (Гостей: 3)