Липкая форма

[Лубышев]

Ребята, я написал код, но вот за каким событием закритить?

if (Form1.Left>Screen.Width-Form1.Width-15) and (Form1.Left<Screen.Width+15) then Form1.Left:=Screen.Width-Form1.Width;
if (Form1.Left<15 ) and (Form1.Left>-15) then form1.Left:=0;

if (Form1.Top>Screen.Height-Form1.Height-45) and (Form1.Top<Screen.Height-30+15) then Form1.Top:=Screen.Height-Form1.Height-30;
if (Form1.Top<15 ) and (Form1.Top>-15) then form1.Top:=0;

и т.д. и т.п.

[Yurk@]

По событию:

TForm1.FormCreate(Sender: TObject);

[Лубышев]

не срабатывает, я уже не знаю, какое стандартное событие взять. Скажите тогда пожалуста какое событие отвечает за перемещение объекта?

[_Dmitry]

TForm1 = class(TForm)
.....................
private
  procedure WMWindowPosChanging(var Msg: TWMWindowPosChanging); 
  message WM_WindowPosChanging;
................................
end;
................................
procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
var
  WorkArea: TRect;
  StickAt : Word;
begin
  StickAt:=20; //количество пикселов от края экрана при котором происходит скачок
  SystemParametersInfo(SPI_GETWORKAREA,0,@WorkArea,0);
  with WorkArea, Msg.WindowPos^ do
    begin
      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;
end;

[Лубышев]

Спасибо, все работает, но вот проблема
мне надо, чтобы при перемещении перемещалась и вторая форма, причем на столько же пикселей, что и главная.
Я попробовал вписать свой код в эту процедуру, вышла ошибка.

[_Dmitry]

При перетаскивании первой формы, вторая будет перемещаться вслед за первой

TForm1 = class(TForm)
.....
private
  procedure OnMove(var Msg: TWMMove); message WM_MOVE;
public
end;

var
  dx,dy: integer; //глобальные переменные

procedure TForm1.OnMove(var Msg: TWMMove);
begin
  inherited;
  try
    Form2.Left:=Form1.Left+dx;
    Form2.Top:=Form1.Top+dy;
  except
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  dx:=Form2.Left-Form1.Left;
  dy:=Form2.Top-Form1.Top;
end;

[Лубышев]

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

[_Dmitry]

dx - смещение между левыми гранями двух форм,
dy - смещение между верхними гранями двух форм.
Анализируйте эти значения и прилепляйте форму.

[Лубышев]

спасибо, попробую.

[Лубышев]

А как прилипить дочернюю форму к главной? пытался модернизировать код, но не получилось. помогите! В общем мне надо, чтоб две формы главная и дочерняя прилипали к краям экрана, друг к другу и при перемешении главной перемешалась и дочерняя (на столько же пикселей)