Конференция VBStreets

**GAL** » 03.06.2005 (Пт) 12:12

Привет!
Помогите, пожалуйста..
Как сделать чтобы при загрузке формы2 (Form2.Show) она прилипала к форме1? К примеру справа.. :?:

На форуме я такого что-то не нашел..

Заранее спасибо.

**Alexander N. Samarin** » 03.06.2005 (Пт) 12:13

.Top
.Left

:?:

**GAL** » 03.06.2005 (Пт) 12:20

Не понял я, Alexander N. Samarin..

Где указать надо?
Поясни, плиз..

**alibek** » 03.06.2005 (Пт) 12:29

В коде, который отвечает за перемещение окна.

**iolaus** » 03.06.2005 (Пт) 12:31

а это смотря как ты будешь отлавливать перемещение своей первой формы...

**GAL** » 03.06.2005 (Пт) 13:00

А поточнее можно?
Что-то у меня не получается.. Прилипает, но в левый верхний угол формы1, а мне надо к краю формы1.

**MeMBus** » 03.06.2005 (Пт) 13:03

Посмотри класс cMagneticWnd, может быть поможет.

**Alexander N. Samarin** » 03.06.2005 (Пт) 14:42

Да проще:

Код: Выделить всё: If (Abs(From2.left - (Form1.left+Form1.with)) < 50) and (Abs(Form2.top - form1.top) < 50) then From2.left = (Form1.left+Form1.width) Form2.top = form1.top EndIf

Прилипает в 50 пикселях (или твипах - ??) от края. Писал от балды, поэтому могут быть ошибки :roll:

**Alexander N. Samarin** » 03.06.2005 (Пт) 14:45

alibek писал(а):В коде, который отвечает за перемещение окна.

GAL писал(а):.... Как сделать чтобы при загрузке формы2 (Form2.Show) она прилипала к форме1? ....

Можно и в коде FormLoad

**alibek** » 03.06.2005 (Пт) 14:50

"Прилипала" относится скорее всего ко всему сроку жизни приложения.

**Jenizix** » 03.06.2005 (Пт) 23:19

Вот так?

Код: Выделить всё: Private Sub Form_Load() Form2.Show Form2.Top = Me.Top Form2.Left = Me.Left - Form2.Width End Sub Private Sub Timer1_Timer() Form2.Top = Me.Top Form2.Left = Me.Left - Form2.Width End Sub

это в первой форме...

**ism** » 03.06.2005 (Пт) 23:48

С таймером тормозит. Лутше ловить WM_MOVE формы1 и перемещать форму2.

**Alexander N. Samarin** » 04.06.2005 (Сб) 15:04

А если в таймере проверять, сдвинули ли форму?

**Jenizix** » 04.06.2005 (Сб) 15:16

Не, н я так, образно... чтоб принцип был понятен...

Прилипание формы2 к форме1