Открыть форму на весь экран / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Открыть форму на весь экран

3 сообщений из 3, страница 1 из 1

Открыть форму на весь экран

#38765348

Елена Пантера

Гость

У меня есть форма. Она открывается на весь экран. При нажатии на кнопку вызывается другая форма (на click написано do form), которая открывается поверх первой но не на весь экран, хотя у обеих форм свойство WindowState=2-Maximized. Помогите как сделать, чтоб вторая форма сразу открывалась на весь экран.

...

Рейтинг:

0 / 0

02.10.2014, 19:44

| Ответить | Цитировать | Написать

Открыть форму на весь экран

#38765395

Rostislav D. Kudryashov

Участник

Сообщения: 239

Рейтинг: 0 / 0

Елена Пантера, следствие не подтверждает показаний "свидетеля", возможно в силу их неполноты.
Вот условия следственного эксперимента.

Код: 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, 21:10

| Ответить | Цитировать | Написать

Открыть форму на весь экран

#38765419

Rostislav D. Kudryashov

Участник

Сообщения: 239

Рейтинг: 0 / 0

Елена Пантера, может к твоим условиям ближе вот эти:

Код: 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

02.10.2014, 22:03

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Открыть форму на весь экран

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=38765395&tid=1582528]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	4ms
check topic access:	4ms
track hit:	57ms
get topic data:	8ms
get forum data:	2ms
get page messages:	33ms
get tp. blocked users:	1ms
others:	306ms

total:	435ms