Прилипание формы2 к форме1

[werrey]

Здравствуйте.
Подскажите пожалуйста, как сделать, чтобы открытая форма 2 по центру формы 1 как бы к ней прилипла, и перетаскивалась вместе с формой 1?
Если не трудно, лучше с примерчиком.


Заранее благодарю.

[Человек_Борща]

Читайте про Drag&Dock.

[werrey]

Сообщение от Человек_Борща

Читайте про Drag&Dock.

Приведите пожалуйста хоть простенький примерчик, а то разобраться сложновато.

[Человек_Борща]

Program Files\Borland\Delphi7\Demos\Docking

[werrey]

Сообщение от Человек_Борща

Program Files\Borland\Delphi7\Demos\Docking

К сожалению нет у меня на делфи хе такого.Надеюсь, кто-нибудь поможет.

[bulldog5293]

http://delphi-faq.zoxt.net/1563.htm - мне помогло решить такой же вопрос

[phomm]

читайте справку по свойству формы screensnap, думаю может помочь

а нет )) там только про края экрана, я думал и по родительской форме тоже

[werrey]

Попробовал сделать через таймер, но результат конечно не впечатляет:
При перетаскивании формы1, форма2 перемещается с задержкой(надо чтобы намертво приклеенная была), и нельзя перемещать форму 2, она возвращается на установленную позицию.

Вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);

procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
var Resize: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Form2.Left:=form1.Left+50;
Form2.Top:=Form1.Top+50;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Left:=form1.Left+50;
Form2.Top:=Form1.Top+50;
end;

end.



Если сможете, подскажите пожалуйста что не так, а то советы выше применить не получилось.

[bulldog5293]

эт делается через ресайз

 public
    procedure WMMove(var Msg: TWMMove); message WM_MOVE;
  end;

procedure fORM1.WMMove(var Msg: TWMMove);
begin
  inherited;
  if (Visible) then
    FormResize(Self);
end;

procedure fORM1.FormResize(Sender: TObject);
begin
  with fORM2 do
  begin
    Width := fORM1.Width - 10;
    Top := fORM1.Top + GetSystemMetrics(SM_CYFRAME);
    Left := ((fORM1.Left + fORM1.Width) - Width) - 69;

[werrey]

Сделал по выше предложенному коду, только не компилируется, да и
procedure Form1.WMMove(var Msg: TWMMove); не могу найти, на ней ошибка при компиляции.


Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);

procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
var Resize: Boolean);
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.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure Form1.WMMove(var Msg: TWMMove);
begin
inherited;
if (Visible) then
FormResize(Self);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
with Form2 do
begin
Width := Form1.Width - 10;
Top := Form1.Top + GetSystemMetrics(SM_CYFRAME);
Left := ((Form1.Left + Form1.Width) - Width) - 69;

end;
end;

end.

Поправьте пожалуйста, если где ошибка.
Рабочий примерчик-то есть посмотреть?