Смещение формы

~~dev.Free~~ · 16.06.2013, 19:48. **Показов** 1924. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Общими усилиям сделали вот такое вот смотрите картинку. Форма желтая стартует в по правому краю внизу. Но при изменении размеров главной формы, форма желтая начинает прятаться за края главной формы. Помогите понять как ее двигать согласно размеров основной формы.

Мало того, что форма прячется за главную, так еще и панель StatusBar пропадает!

@The trick · 16.06.2013, 20:02

Visual Basic

Private Sub Form_Resize()
    Popup.Move Me.ScaleWidth - Popup.Width, _
               Me.ScaleHeight - Popup.Height
End Sub
 
Private Sub Grid_DblClick()
    If Oz <= 0 Then Exit Sub
    RefreshPopup
    Popup.Move Me.ScaleWidth - Popup.Width, _
               Me.ScaleHeight - Popup.Height
End Sub

~~dev.Free~~ · 17.06.2013, 07:04 **[ТС]**

Не работает! Вернее работает, но с глюками смотрите! Получается, что панель StatusBar поднимается выше положенного, она по умолчанию внизу формы.

@The trick · 17.06.2013, 10:08

Я посмотрел - это происходит из-за SetParent, в подробностях не разбирался. Можно сделать "всплывающее окно", не формой, а например фрейм или пикчербокс (просто изначально задача была немного другая, вот поэтому и я решил делать форму), тогда эта проблема разрешится сама. Могу предложить перемещать вручную при установленном Align = vbAlignNone:
В событие Form_Resize добвавь строчку

Visual Basic

1 2	Status.Move 0, Me.ScaleHeight - Status.Height, _ Me.ScaleWidth, Status.Height

~~dev.Free~~ Заблокирован
		1
	Смещение формы 16.06.2013, 19:48. Показов 1924. Ответов 3 Метки нет (Все метки) Общими усилиям сделали вот такое вот смотрите картинку. Форма желтая стартует в по правому краю внизу. Но при изменении размеров главной формы, форма желтая начинает прятаться за края главной формы. Помогите понять как ее двигать согласно размеров основной формы. Мало того, что форма прячется за главную, так еще и панель StatusBar пропадает! Миниатюры 0

~~dev.Free~~ Заблокирован
	17.06.2013, 07:04 [ТС]	3
	Не работает! Вернее работает, но с глюками смотрите! Получается, что панель StatusBar поднимается выше положенного, она по умолчанию внизу формы. Миниатюры 0

Опции темы

Смещение формы

Решение