Сближение двух форм

[CraftR14]

Необходимо склеить две формы, то есть они раздельны, но приперемещении первой формы, форма нумбер два перемещаетса за ней как будто склеена =\ помогите)))

[AK BULLETS]

При перемещении 1-ой формы нужно менять координаты второй

[CraftR14]

Сообщение от AK BULLETS

При перемещении 1-ой формы нужно менять координаты второй

Да ладно? че серньезно что ли? я не знаю как реализовать это

[AK BULLETS]

я те говорю, юзай панели, а не две формы

[CraftR14]

Сообщение от AK BULLETS

я те говорю, юзай панели, а не две формы

Просто я там прогу сделал у нее три формы и у всех множество кнопок и т.п. то есть писал больше месяца.. и гигантский на мой взгляд код) и переносить его достаточно проблематично ( поэто му просто нужно узнать как их связаать ))

[AK BULLETS]

Сообщение от CraftR14

Просто я там прогу сделал у нее три формы и у всех множество кнопок и т.п. то есть писал больше месяца.. и гигантский на мой взгляд код) и переносить его достаточно проблематично ( поэто му просто нужно узнать как их связаать ))

А ну тогда только изменением координат. Поводи формой, посмотри в свойства - какие меняются, и потутыркайся с ними. По кнопке отображай форму по высчитанным координатам относительно первой формы, а при перемещении первой - перемещая вторую изменяя её координаты.
Потутыркайся короче с координатами

[CraftR14]

Ну надо потыркатся то понятно=\

[CraftR14]

Плс кто нить подкиньте код чтоб ForM2 перемещалась за Form1 =))))

Умаляйу)))))))))

[russian-stalker]

Как пример:

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;


procedure TForm1.FormResize(Sender: TObject);
begin
if (form2<>nil) then
begin
form2.Left:=left+width;
form2.Top:=top;
end;
end;

procedure TForm1.WMMove(var Msg: TWMMove);
begin
inherited;
Resize;
end;