ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как форму при загрузке сделать активным окном
7 сообщений из 7, страница 1 из 1
Как форму при загрузке сделать активным окном
    #32696261
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xamlo
Гость
Вопрос такой. Создаю exeшник, окно _Screen делаю невидимым (на мониторе отображается только форма ). При запуске exeшника запускается эта формочка, но на экране она сразу же отображается как неактивная. Что можно сделать, чтобы она по умолчанию виндой виделась, как активная?
...
Рейтинг: 0 / 0
15.09.2004, 17:35
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696374
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
а никак собственно это официальный глюк
причем доже не фокса а где-то в виндоус
кликайта по форме мышкой
...
Рейтинг: 0 / 0
15.09.2004, 18:17
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696384
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Попробуй следующие варианты:

1)

Код: plaintext
1.
2.
3.
DO FORM MyForm.scx
MyForm.Visible=.F.
MyForm.Visible=.T.
READ EVENTS

2)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
DO FORM MyForm.scx
GiveMyFormFocus(MyForm.Caption) 
READ EVENTS

* ----------- Функция активизации As Top-Level формы и вывода ее на передний план 
FUNCTION GiveMyFormFocus(tcWindowCaption) 
local lnHWND 

declare integer FindWindow in Win32API integer, string 
declare integer SetForegroundWindow in Win32API integer 

lnHWND = FindWindow( 0 , tcWindowCaption) 

if lnHWND >  0  
	SetForegroundWindow(lnHWND) 
	return(.T.) 
else 
	return(.F.) 
endif 
ENDFUNC
...
Рейтинг: 0 / 0
15.09.2004, 18:27
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696493
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
И еще посмотри здесь

http://forum.foxclub.ru/read.php?f=5&i=33467&t=33358

И такой вариант

Код: plaintext
1.
2.
3.
DO FORM MyForm.scx
Myform.AlwaysOnTop=.t.
Myform.AlwaysOnTop=.f.
READ EVENTS
...
Рейтинг: 0 / 0
15.09.2004, 19:14
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696873
xamlo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xamlo
Гость
Впринципе, получаетсчя вот таким образом, если вначале прописать на форме
WindowState = 1. Но все это достаточно некрасиво. Вначале мигает фокспрошное окно (делаясь невидимым), потом снизу, как Титаник,медленно всплывает и сама форма приложения. Но впринципе теперь она активна. Все равно некрасиво.

DO FORM main NAME mainform LINKED
IF TYPE("mainform")="O" AND !ISNULL(mainform)
mainform.WindowState = 0
READ EVENTS
ENDIF
...
Рейтинг: 0 / 0
16.09.2004, 09:28
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696958
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
А по ссылке прочитать, конечно, ломает

Чтобы не всплывало основное окно FoxPro надо в файле конфигурации CONFIG.FPW прописать строчку

SCREEN=OFF

Тогда в головной проге не надо писать _SCREEN.Visible=.F.
...
Рейтинг: 0 / 0
16.09.2004, 10:10
| Ответить | Цитировать | Написать  
Как форму при загрузке сделать активным окном
    #32696969
plugh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
plugh
Участник
Можно попробовать так:

Function ShowWind

Lparameters windName

Local i

i=1

do while (type(application.forms ) = "O" and !ISNULL(application.forms) = "O"))
if application.forms.name == windName
application.forms.Show()
return(.t.)
endif
i = i+1
skip

return(.F.)
...
Рейтинг: 0 / 0
16.09.2004, 10:15
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как форму при загрузке сделать активным окном
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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