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

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

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

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

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

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

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