ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как узнать координаты формы? (+)
7 сообщений из 7, страница 1 из 1
как узнать координаты формы? (+)
    #32074573
ICBa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICBa
Гость
Сабж. Средствами аксесса? Как это сделать через WinAPI я знаю, интересно как сделать средствами аксесса?

Проблем такой:

Запоминаю в базе размеры открытых форм:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
For Each frm In Forms
    wRec.AddNew
    wRec![NAME] = frm.NAME
    temp = GetWindowRect(frm.hwnd, rct)
    If temp <>  0  Then
      wRec![PX] = rct.Left
      wRec![PY] = rct.Top
      wRec![Width] = rct.Right - rct.Left
      wRec![Height] = rct.Bottom - rct.Top
    End If
    wRec.Update
Next


Восстанавливаю координаты формы:
Код: plaintext
temp = MoveWindow(frm.hwnd, wRec![PX], wRec![PY], wRec![Width], wRec![Height],  1 )


Так вот, запоминаются координаты для "всплывающих" и "не всплывающих" окон одинаково а вот при восстановлении они отрисовываются по-разному.
"Всплывающие" окна рисуются относительно верхнего левого угла ЭКРАНА, а "не всплывающие" относительно левого верхнего угла рабочей области Аксесса (под всеми верхними меню). В резулльтате получаем смещение окон зависящее от кол-ва строк в верхнем меню аксесса :(

Как сделать чтобы формы восстанавливались одинаково?
...
Рейтинг: 0 / 0
02.12.2002, 12:51
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074598
alk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alk
Гость
надо же сам задал ворос - сам же и ответил.

для всплывающих окон делай смещение равное положению исходной формы
...
Рейтинг: 0 / 0
02.12.2002, 13:36
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074599
Маveric
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маveric
Участник
Можно API функцию использовать (ClientToScreen помоему)
...
Рейтинг: 0 / 0
02.12.2002, 13:37
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074624
ICBa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICBa
Гость
Какое смещение? Вся проблема как раз в том чтобы узнать это смещение.
Окно может быть всплывающим, а может и не быть... Надо чтобы в любом случае внутри аксесса оно в нужные координаты перемещалось.
...
Рейтинг: 0 / 0
02.12.2002, 14:14
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074629
ICBa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICBa
Гость
Добавлю:
координаты
Код: plaintext
temp = GetWindowRect(frm.hwnd, rct)
берутся правильно, а вот при перемещении формы в эти координаты "всплывающее" окно и "не всплывающее" формы оказываются со смещением. "Не всплывающие" сдвигаются вниз на высоту верхнего меню.
...
Рейтинг: 0 / 0
02.12.2002, 14:21
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074756
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Latuk
Участник
Если неахота искать причину загани проблемму в глубь:
1)Запомни координаты
2)отрисуй по ним форму
3)Снова прочитай координаты и сравни с сохраненными
если смещение то отрисуй по сохраненным-смещение
...
Рейтинг: 0 / 0
02.12.2002, 16:54
| Ответить | Цитировать | Написать  
как узнать координаты формы? (+)
    #32074775
ICBa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICBa
Гость
Спасибо, хорошая идея :)
...
Рейтинг: 0 / 0
02.12.2002, 17:17
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как узнать координаты формы? (+)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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