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

[eduard93]

Не будьте копипастером, посмотрите на процедуры выше и ниже проблемной.
Что касается демок в DelphiXE, то они там тоже есть только находятся в папке с документами пользователя. Например: C:\Users\*\Documents\RAD Studio\8.0\Samples\Delphi\VCL\Docki ng

[bulldog5293]

Держи, с тебя + в репутацию =)

[werrey]

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

Держи, с тебя + в репутацию =)

Спасибо большое, по Вашему примеру почти получилось что надо, только если форму2 переместить в форме1, то при перемещении формы1 форма2 опять перескакивает на прежнее место, это не есть хорошо.

Я бы Вам и 10 плюсов рад поставить, да нет такой возможности пока, наверно мало сообщений набрал.

Как бы сделать, чтобы форма 2 не перескакивала на начальное положение при перемещении формы1, а запоминало своё последнее местоположение, и перемещалась уже там?

[werrey]

Всем огромное спасибо, осталось решить 2 проблемы:

1.Как сделать, чтобы перемещенная форма2 внутри формы1 запоминала своё место, а не возвращалась в исходную позицию при перемещении формы1?
2.Как сделать, чтобы форма 2 не могла при перетаскивании вылезать за пределы формы1?

Код:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);

private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
public
procedure WMMove(var Msg: TWMMove); message WM_MOVE;
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;

end;

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

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

procedure TForm1.FormResize(Sender: TObject);
begin
with Form2 do
begin
Top := Form1.Top+38 ;
Left :=Form1.Left+16;
end;
end;

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

end.

Подскажите пожалуйста на примере этого кода, как это можно сделать, если возможно вообще...

[bulldog5293]

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

[eduard93]

Предлагаю еще такой вариант: Form2.Parent := Form1; Только в OnCreate это не пихайте.