[Ama]

Вопрос, наверное, глупый, почему метод OnMouseDown у моей формы реагирует на нажатие тока правой кнопки мыши. Форма без заголовка.

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Cursor = crSizeNWSE) or (Cursor = crSizeNS) or (Cursor = crSizeWE) then
  begin
   frmResizing:= true;
   oldWidth:= Width;
   oldHeight:= Height;
  end
 else frmResizing:= false;
end;