Как изменить курсор мыши при ней кнопки левой мыши?

Question

Как изменить курсор мыши при ней кнопки левой мыши?

В Delphi 2007, в мыши двигаться событие, я стараюсь изменить курсор мыши с:

procedure TFr_Board_Display.PaintBox_Proxy_BoardMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin

  if left_mouse_button_down then begin  
    if some_condition then begin
      Cursor := crDrag;
    end
    else begin
      Cursor := crNoDrop;
    end;
  end
  else begin
    if some_other_condition then begin
      Cursor := crHandPoint;
    end
    else begin
      Cursor := crDefault;
    end;
  end;
end;

например. Однако, когда кнопка левой мыши вниз, и я двигаю мышь, курсор не меняется ни на crDrag или crNoDrop. Код выполняется (например, Cursor :» crDrag;) но курсор не меняется. Когда левая кнопка мыши вверх, и я двигаю мышь, курсор не меняет никаких проблем.

(я первоначально пытался использовать некоторые Перетащите и Drop событий и свойств, но не мог получить все, чтобы работать так, как я хотел.)

Редактировать: уточненное желаемое поведение, и отформатированный код.

Редактировать: Спасибо, Gamecat, но я хочу, чтобы курсор изменить, когда левая кнопка мыши вниз, и в то время как мышь движется курсор должен меняться между crDrag и crNoDrop.

delphi onmousemove

18 12 2008 07:21

Ответ на: "Как изменить курсор мыши при ней кнопки левой мыши?"

Количество ответов:2

Accepted Answer

Если вы установите курсор мыши в OnMouseDown и сбросить его в OnMouseUp, все работает хорошо:

procedure TForm4.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Cursor := crCross;
end;

procedure TForm4.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Cursor := crDefault; // Or you can restore a saved cursor.
end;

Если вы хотите, чтобы mousecursor реагировать на движение мыши, используйте следующее:

procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then begin
    if X<100 then
      Screen.Cursor := crCross
    else
      Screen.Cursor := crHourGlass;
  end else
    Screen.Cursor := crDefault;  // Or you can restore a saved cursor.
end;

procedure TForm4.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Screen.Cursor := crDefault; // Or you can restore a saved cursor.
end;

MouseUp необходимо, иначе курсор не изменится обратно, если он парит над контролем.

Не забудьте использовать Screen.Cursor везде.

Accepted Answer

Слегка не по теме, но, возможно, полезно для вас.

Я создал глобальный стек, чтобы вложенные изменения курсора. Это позволяет любой кусок кода установить курсор мыши, что они хотят, не беспокоясь о том, что их абонент или абонент установить его.

Например:

procedure AskUserWhatToDo;
begin
  PushMouseCursor(crArrow);
  try
     if MessageDlg('Abort?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        SysUtils.Abort;
  finally
     PopMouseCursor;
  end;
end;

procedure LongProcess;
begin
  PushMouseCursor(crHourglass);
  try
     //  do something
     if QuestionableState then
       AskUserWhatToDo;
     //  do something
  finally
    PopMouseCursor;
  end;
end;

Ни одна процедура не должна беспокоиться о том, в каком состоянии нуждается другой или оставляет курсор мыши.

//===============================================================
//   in a universal utility module (mine is called CraftWindows.pas)

function SetMouseCursor(ACursor : TCursor) : TCursor;
begin
   Result := Screen.Cursor;
   Screen.Cursor := ACursor;
end;

var
   GlobalMouseCursorStack : TList = nil;

procedure PushMouseCursor(ACursor : TCursor);
begin
   if GlobalMouseCursorStack = nil then
       GlobalMouseCursorStack := TList.Create;

   GlobalMouseCursorStack.Add(Pointer(SetMouseCursor(ACursor)));
end;

procedure PopMouseCursor;
begin
   if (GlobalMouseCursorStack <> nil) and (GlobalMouseCursorStack.Count > 0) then
   begin
       SetMouseCursor(TCursor(GlobalMouseCursorStack.Last));
       GlobalMouseCursorStack.Delete(GlobalMouseCursorStack.Count - 1);
   end;
end;

...

finalization
  GlobalMouseCursorStack.Free;