Уважаемые спецы! Объясните мне пожалуста:
Код:
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. Вопрос: Объясните как работает выше указанная процедура, и в чем разница этой процедуры и тех которые я изспользовал раньше?