Изменить курсор

[Don Karleone]

Нужно следующие:
По нажатию правой кнопки мыши изменить курсор (на crSizeAll). При отпускании ее сделать его прежним (crArrow). Все это для компоненты Image.
Я делаю так:

procedure Form1.Image1MouseDown(...);
begin
  if Button = mbRight then Image1.Cursor:=crSizeAll;
end;

procedure Form1.Image1MouseUp(...);
begin
  if Button = mbRight then Image1.Cursor:=crArrow;
end;

но почемуто если нажать кнопку и не двигать мышь, курсор не изменяет свой вид. Он изменит его только когда я двину мышью. Тоже самое и при отпускании. Кнопку отпустил а мышь не двигал - курсор не вернулся в прежний вид. Что делать???

[DIgorevich]

 if Button = mbRight then Image1.Cursor:=crSizeAll;
image1.Repaint;

[Don Karleone]

Сообщение от DIgorevich

 if Button = mbRight then Image1.Cursor:=crSizeAll;
image1.Repaint;

неа... не работает

[Selestis]

Идея: можно спрятать и показать курсор

ShowCursor(false);
ShowCursor(true);

[Don Karleone]

Сообщение от Selestis

Идея: можно спрятать и показать курсор

ShowCursor(false);
ShowCursor(true);

не помогает. Хотя ели в обработчике нажатия кнопки просто спрятать курскор (ShowCursor(false)) то срабатывает сразу. Но почему не изменяет вид курсора не пойму???

А вот если все это делать в обработчиках для формы а не для image, то там все работает нормально.

[Kotofff]

А ты ее чуть шевельни на картинке :

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  pt:tpoint;
begin
  if Button = mbRight then
    begin
    Image1.Cursor:=crSizeAll;
    GetCursorPos(pt);
    SetCursorPos(pt.X+1, pt.y+1);// !!!
    end;
end;

[Don Karleone]

Сообщение от Kotofff

А ты ее чуть шевельни на картинке :

не помогает.

[Kotofff]

не помогает.

У меня все работает !!!

[Don Karleone]

Да, действительно все работает! Причем двигать курсор не обязательно. Можно написать так:
GetCursorPos(pt);
SetCursorPos(pt.X,pt.Y);

Спасибо!!!