робота с формами в делфи

[Pein95]

в програме есть два окна
одно окно вызываетса нажатием кнопки как сделать так чтоб оно было приклеплено к стороне главного окна и при перемещении главного двигалось вместе с ним?

[Скандербег]

Если при изменении размера первого окна есть событие OnResize и можно в нем "приклеивать" второе окно к стороне первого, то событие перемещения окна в Дельфи не вынесено в published секцию. Поэтому его надо создать самому.

  TForm1 = class(TForm)
  ...
    procedure FormResize(Sender: TObject); //создается через Object Inspector
  private
    procedure WMMove(var Message: TWMMove); message WM_MOVE;
    procedure Glue;
  ...

implementation

...
procedure TForm1.FormResize(Sender: TObject);
begin
  Glue;
end;

procedure TForm1.WMMove(var Message: TWMMove);
begin
  Glue;
end;

procedure TForm1.Glue;
begin
  if Assigned(Form2) then begin
    Form2.Left := Form1.BoundsRect.Right;
    Form2.Top := Form1.Top
  end;
end;