[Ama]

Уважаемые спецы! Объясните мне пожалуста:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 perform(WM_SysCommand, $F012, 0);
end;

Эта процедура позволяет переместить форму как обычно перетаскиваются окна в ОС. Раньше такое деяние я осуществлял с помощью переменных Drag: boolean; OldX, OldY: integer, и обработки трех событий формы: OnMouseDown, OnMouseMove, OnMouseUp. Вопрос: Объясните как работает выше указанная процедура, и в чем разница этой процедуры и тех которые я изспользовал раньше?

[lmikle]

Очент просто. Здесь просто форме отсылается системное сообщение, которое аналогично тому, которое отсылается из соотв. пункта системного меню. Дальше винда берет все на себя.