Изменить курсор при перемещении формы

[Nester]

Необходимо изменять курсор при перемещении формы с crDefault на crSizeAll

пробовал такой вариант но он меняет курсор не после начала перемещения формы а по MouseOnDown

 Private
   Procedure WMSysCommand (Var Msg: TWMSysCommand); Message WM_SYSCOMMAND;

.
.
.

Procedure TForm1.WMSysCommand(Var Msg: TWMSysCommand);
  Begin
   If ((Msg.cmdType And $FFF0)=SC_MOVE ) Then Cursor:=crSizeAll;
   Inherited;
   Cursor:=crDefault
 End;

необходимо менять курсор по событию перемещения формы и восстанавливать по отпусканию кнопки мышки

как это реализовать?

[TwiX]

В твой пример допиши проверку на позицию формы.
По mouseDown сохраняем позицию, а твоей процедуре сравниваем текущую позицию и сохранённую.

[Nester]

не выходит WMSysCommand срабатывает раньше чем FormMouseDown

[Kotofff]

Вообще-то перемещение и изменение размеров лучше всего отслеживать в сообщении WM_EXITSIZEMOVE (ну как вариант можно попробовать) , итак имеем :

  public
    procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;
....
....
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
  ....// что-то делаем
  ....
  inherited;
end;

P.S. прошу прощения - это не то что тебе нужно ... сообщение можно не читать ...

[Nester]

и так не правильно работает

Procedure TForm1.WMEnterSizeMove;
 Begin
  Cursor:=crSizeAll;;
  Inherited
End;

Procedure TForm1.WMExitSizeMove;
 Begin
  Inherited;
  Cursor:=crDefault;
 End;

причём WMEnterSizeMove срабатывает если нажать кнопку и удерживать её гдето секунду

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=58809
Читаем, разбираемся...

[Пепел Феникса]

может это поможет

[Nester]

всё равно не работает вот пример:

[betirsolt]

может это поможет #
SetSystemCursor(GetCursor, OCR_CROSS);
вместо OCR_CROSS можно написать еще
OCR_NORMAL — нормальный курсор в виде стрелки;
OCRIBEAM — курсор, используемый для выделения текста;
OCR_WAIT — большие песочные часы;
OCR_CROSS — крестик;
OCRJJP — стрелка вверх;
OCRSIZE — курсор изменения размера;
OCR_ICON — значок;
OCR_SIZENWSE или OCR_SIZENESW — курсор, используемый для растяги-
вания объекта;
OCR__SIZEWE — курсор горизонтального изменения размера;
OCR SIZENS — курсор вертикального изменения размера;
OCR_SI2EALL — курсор горизонтального и вертикального изменения
размера;
OCRSIZENO — интернациональный несимвольный курсор;
OCR_APPSTARTING — маленькие песочные часы со стрелкой.

[Nester]

проблема скорее всего в том что событие WM_SetCursor срабатывает после отпускания кнопки мышки

возможно нужно както так

 Procedure TForm1.WMMOVING;
  Begin
   Cursor:=crSizeAll;
   тут посылаем WM_SetCursor
 End;