Передвижение формы

← →
DRUID (2004-05-03 18:40) [0]

Есть такая проблема есть первая форма нестандартной формы, я создал вторую форму, вопрос вот в чем, 1. Мне нужно что бы вторая форма двигалась вслед за первой и 2. Что бы вторую форму нельзя было двигать отдельно от второй

← →
Gero © (2004-05-03 21:36) [1]

Обрабатывайте WM_WINDOWPOSCHANGING для обеих форм.
При WM_WINDOWPOSCHANGING для первой формы двигайте вторую, а для второй Result := 0.

← →
DRUID (2004-05-04 07:32) [2]

А еще какие нить варианты существуют?

← →
uny (2004-05-04 07:48) [3]

есть, формы неправильного вида - круглые, с дыркой и т.д. - на вид будет две формы, а на самом деле это одна)

← →
DRUID (2004-05-04 10:39) [4]

>> uny (04.05.04 07:48) [3]
есть, формы неправильного вида - круглые, с дыркой и т.д. - на вид будет две формы, а на самом деле это одна)

Этот вариант я тоже уже рассматривал, но просто получается что форма не круглая и не мгногоугольная, а ваще непонятно что, поэтому необходимо именно перетаскивать две формы. Нашел компонент MagnetFrom мож кто пользовался, дело еще вот в чем, формы находяться на небольшом расстоянии друг от друга.

← →
Gero © (2004-05-04 10:41) [5]

> А еще какие нить варианты существуют?

А чем [1] не подходит?

← →
DRUID (2004-05-04 11:11) [6]

>> Gero © (04.05.04 10:41) [5]

> А еще какие нить варианты существуют?

А чем [1] не подходит?

Вот я щас на работе сижу и у меня нет возможности попробовать вариант 1, и я сразу же узнаю другие возможные решения, чего ту непонятного

← →
spogi (2004-05-05 02:08) [7]

а так нельзя что ли? пусть будет Drag:Boolean;
перетаскивание будет с помошью:
begin
releaseCapture;
Form1.Perform(WM_SYSCOMMAND,$F012,0);
end;

Form1->OnMouseDown
Drag:=True;

Form1->OnMouseMove
If Drag = True then begin
Form2.Left:=Form1.Left;
Form2.Top:=Form1.Top;
end;

Form1->OnMouseUp
Drag:=False;

← →
DRUID (2004-05-05 12:05) [8]

Спасибо всем большое за помощь, разобрался!!!

Передвижение формы Найти похожие ветки