Перейти к содержанию
Fire Monkey от А до Я
  • 0

Изменение курсора мыши, Windows


Alex7wrt

Вопрос

Рекомендуемые сообщения

  • 0

есть подозрение, что курсор перемещается не по форме, а по компонентам на форме, поэтому назначив курсор в событии формы это не будет являться изменением для всех компонент на форме. Нужно проверить срабатывает ли ваше назначение

Ссылка на комментарий
  • 0

Я назначаю курсор в обработчике OnMouseMove компонента

procedure TForm5.leftMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
    TRectangle(Sender).Stroke.Thickness:=TRectangle(Sender).Stroke.Thickness+0.5;
    Form5.Cursor := crSQLWait;
end;

Первая строка работает (ширина границы увеличивается при движении мыши), вторая строка - нет

Изменено пользователем Alex7wrt
Ссылка на комментарий
  • 0

Для формы все работает нормально, курсор меняется, для компонента нет. В обоих обработчиках OnMouseMove (формы и компонента) присваивается один и тот же курсор (например crSQLWait) при передвижении мышью по форме курсор меняется, при наведении на область контрола снова приобретает вид стандартной стрелки.

Ссылка на комментарий
  • 0

всё правильно, вы в обработчике компонента присваиваете курсор не компоненту, а форме. Хотите, чтоб и над компонентом был такой курсор, так и ему присвойте.

Проверил у себя, данный код работает

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  if Rectangle1.Cursor = crHourGlass then
    Form1.Cursor  :=   crSQLWait
  else
    Form1.Cursor  := crSizeNWSE;
end;

procedure TForm1.Rectangle1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  Form1.Cursor  :=   crSizeAll;
  Rectangle1.Cursor := crHourGlass;
end;

Изменено пользователем Alexander
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...