[Ama]

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

Код:

1 2 3 4 5 6

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]

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