Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Открыть форму на весь экран / 3 сообщений из 3, страница 1 из 1
02.10.2014, 19:44
    #38765348
Елена Пантера
Елена Пантера
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть форму на весь экран
У меня есть форма. Она открывается на весь экран. При нажатии на кнопку вызывается другая форма (на click написано do form), которая открывается поверх первой но не на весь экран, хотя у обеих форм свойство WindowState=2-Maximized. Помогите как сделать, чтоб вторая форма сразу открывалась на весь экран.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2014, 21:10
    #38765395
Rostislav D. Kudryashov
Rostislav D. Kudryashov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть форму на весь экран
Елена Пантера, следствие не подтверждает показаний "свидетеля", возможно в силу их неполноты.
Вот условия следственного эксперимента.
Код: 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.
PROCEDURE TestForm
SET TALK OFF
CLEAR
frm1 = NEWOBJECT ('Frm1')
frm2 = NEWOBJECT ('Frm2')
STORE 2 TO frm1.WindowState, frm2.WindowState
frm1.Caption = '1'
frm2.Caption = '2'
frm1.WindowType = 0
frm2.WindowType = 0
frm1.Left = 100
frm2.Left = frm1.Left + frm1.Width + 100
? 'F12 to CLEAR EVENTS'
ON KEY LABEL F12 CLEAR EVENTS
frm1.Show()
frm2.Show()
READ EVENTS

SET TALK ON
ENDPROC && TestForm

DEFINE CLASS Frm1 AS Form
ShowWindow = 0
ENDDEFINE && Frm1

DEFINE CLASS Frm2 AS Form
ShowWindow = 0
ENDDEFINE && Frm2
Посмотри, что в этих условиях не соответствует твоим. Может, это наведёт тебя на решение проблемы.
Эксперимент - лучший способ добычи знания.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2014, 22:03
    #38765419
Rostislav D. Kudryashov
Rostislav D. Kudryashov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть форму на весь экран
Елена Пантера, может к твоим условиям ближе вот эти:
Код: 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.
PROCEDURE TestForm
SET TALK OFF
CLEAR
PUBLIC frm1 AS Form, frm2 AS Form
STORE NULL TO frm1, frm2
frm1 = NEWOBJECT ('Frm1')
frm1.WindowState = 2
frm1.Caption = '1'
frm1.WindowType = 0
frm1.Left = 100
? 'F12 to CLEAR EVENTS'
ON KEY LABEL F12 DO Fini
_SCREEN.Hide()
frm1.Show()
READ EVENTS

CLEAR ALL
SET TALK ON
ENDPROC && TestForm

PROCEDURE Fini
ON KEY LABEL F12
CLEAR EVENTS
_SCREEN.Show()
ENDPROC && Fini

DEFINE CLASS Frm1 AS Form
ShowWindow = 2
ADD OBJECT C1_cmd AS CommandButton WITH Caption='Show frm2'
PROCEDURE C1_cmd.Click
frm2 = NULL
frm2 = NEWOBJECT ('Frm2')
frm2.WindowState = 2
frm2.Caption = '2'
frm2.WindowType = 0
frm2.Left = frm1.Left + frm1.C1_cmd.Width + 10
frm2.Show()
*THISFORM.WindowState = 0 && Uncomment
*THIS.Refresh()                   && us!!!
WAIT '!!!' WINDOW
ENDPROC && C1_cmd.Click
ENDDEFINE && Frm1

DEFINE CLASS Frm2 AS Form
ShowWindow = 1
ENDDEFINE && Frm2
И если что не так, надо смотреть, что в событиях форм Load(), Init(), Show(), Activate(), GotFocus().
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Открыть форму на весь экран / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1512ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%BD%D0%B5%D1%83%D0%BC%D0%B5%D0%BB%D0%BA%D0%B8%D0%BD]:
 0ms
get settings:
 9ms
get forum list:
 12ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 1353ms
total:  1512ms
x
x
Закрыть


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