ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 21:10
| Ответить | Цитировать | Написать  
Открыть форму на весь экран
    #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
02.10.2014, 22:03
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Открыть форму на весь экран
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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