[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;

[NIch]

У параметра Button такие параметры

Код:

TMouseButton {mbLeft, mbRight, mbMiddle};

попробуй так

Код:

if Button = mbLeft then
 ...

Тут много чего еще
http://www.delphi.int.ru/articles/31/

[Ama]

Про Button, то я знаю. Так дело в том что при трассировке кода вход в процу происходит почему-то при нажатии правой кнопки, а проверка нажатия кнопки левой или правой в проце не происходит, т.е. принажатии любой кнопки мыши вход в процу должен быть

[AlexSku]

У меня срабатывает и при левой, и при правой, и при средней. Может, ещё есть другие обработчики или какие-то изменения в настройках Windows?

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('mouse');
end;