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

Как привязать одну форму к другой?   Найти похожие ветки 

← →
Intell ©   (2003-03-24 11:00) [0]

Нужно позарез - как привязать одну форму к другой так, как в Winamp`е. Т.е я тащу форму, а за ней тащется вторая форма. Нужен пример без использования Timer. А то пробовал - некрасиво получается.

---

← →
Palladin ©   (2003-03-24 11:14) [1]

вешаешь обработку wm_move в главной форме...
и пусть дочерние за ней тащатся...

TForm1=class
...
procedure MyMove(var msg:TMessage); message wm_move;
...

procedure TForm1.MyMove;
begin
if Visible then
begin
//тащишь окна например
Form2.Left:=Self.Left
From2.Top:=Self.Top+Self.height+2;
end
end;

---

← →
Intell ©   (2003-03-24 11:21) [2]

Palladin - неплохой вариант, но подожду лучшего.

---

← →
Ильдар   (2003-03-24 11:24) [3]

Чем не нравится вариант Palladin. Только вместо +2 - толщина бордера

---

← →
Palladin ©   (2003-03-24 11:29) [4]

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

вариантов не мало...

---

← →
Intell ©   (2003-03-24 11:32) [5]

Полностью согласен...

---

← →
Intell ©   (2003-03-24 11:39) [6]

Всё, всем спасибо, исправил немного код и получил то, что хотел.

---

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

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



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