Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c