Липкое окно. Не могу изменить ширину прилипшего окна.

[artemavd]

Добрый день! Поиском по форуму нашел код, чтобы сделать второе окно прилипшим к первому. Но вот проблемка, не могу понять где изменить, чтобы ширина формы, которая прилипает была такой какой я установил ее при разработке программы. Сейчас ширина этого окна получается непонятным для меня образом. Где установить ширину прилипаемого окна? И второй вопрос: за статусбар у меня изменяется размер главной формы. Как сделать, чтобы в коде ниже изменялось также положение прилипаемого к главной форме окна?
Код:

private
    procedure WMWindowPosChanging1(var Msg: TWMWindowPosChanging);
    message WM_WINDOWPOSCHANGING;

procedure TForm_Main.WMWindowPosChanging1(var Msg: TWMWindowPosChanging);  //для "прилипания" к краям экрана/к нужной форме
var 
  WorkArea: TRect;
  StickAt : Word;
begin
  StickAt := 20;  //на каком расстоянии главная форма будет "прилипать" к краю экрана
  SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
  with WorkArea, Msg.WindowPos^ do
    begin  // Сдвигаем границы для сравнения с левой и верхней сторонами
      if (Form_Main.Visible=true) and (Glued1.Checked=true) then
        begin
          Form_PlayList.Top:=Form_Main.Top+Form_Main.Height-2;  //задаем координаты "прилипшего окна"
          Form_PlayList.Left:=Form_Main.Left;
        end;
      Right:=Right-cx;
      Bottom:=Bottom-cy;
      if abs(Left-x)<=StickAt then x:=Left;
      if abs(Right-x)<=StickAt then x:=Right;
      if abs(Top-y)<=StickAt then y:=Top;
      if abs(Bottom-y)<=StickAt then y:=Bottom;
    end;
  inherited;
end;

[Сергей089]

artemavd, код работает. Размер второй формы остается такой, какой ее выставляешь в дизайнере.

[phomm]

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

И второй вопрос: за статусбар у меня изменяется размер главной формы. Как сделать, чтобы в коде ниже изменялось также положение прилипаемого к главной форме окна?

На мой взгляд, достаточно ловить событие OnResize (либо соответствующее message) формы и запускать этот же код(если для "своей" формы) или посылать сообщение нужной форме. Код можно отрефакторить в процедуру, не зависящую от вызывающего, плюс универсализировать, чтобы не было зависимостей от конкретных форм (например, передавать эти формы в параметрах процедуры), и получится дельно - а то вдруг надо будет несколько липких дочек, или названия экземпляров поменяются.
И, Артем, не перестаю Вам твердить, ну не испозьзуйте переменные экземпляра класса в методах самого класса (это Form_Main в методах ТForm_Main в данном случае), а используйте Self или вообще ничего (сразу имена членов класса).