Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/47: Рейтинг темы: голосов - 47, средняя оценка - 4.91
 Аватар для barsik123
4 / 4 / 0
Регистрация: 26.12.2014
Сообщений: 471

Изменение цвета Label при наведении на него курсора мыши. Как это сделать?

20.02.2015, 11:41. Показов 9456. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Изменение цвета Label при наведении на него курсора мыши. Как это сделать? Какое свойство надо поменять?
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.02.2015, 11:41
Ответы с готовыми решениями:

При наведении курсора на TImage исходная картинка меняется на другую. Как это сделать?
на пустой форме находится TImage. при наведении курсора на TImage исходная картинка меняется на другую. убираем курсор с компонента и...

Изменение цвета и текста при наведении курсора мыши
Добрый вечер. Вот такой вот вопрос: "Как менять одновременно цвет и текст при наведении курсора мыши?" Вот код: ...

Изменение цвета объекта при наведении на него мыши
В Unity есть у меня одна проблема. При наведении на стандартные объекты(Например куб), а на другие нет. Вот код: using UnityEngine; ...

7
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
20.02.2015, 12:13
Цитата Сообщение от barsik123 Посмотреть сообщение
Какое свойство надо поменять?
Pascal
1
Label1.Сolor
Добавлено через 13 минут
Вот так при наведении мыши на лабель он окрашивается, если убрать, цвет фона.
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Color := clYellow
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Color := clBtnFace
end;
1
 Аватар для barsik123
4 / 4 / 0
Регистрация: 26.12.2014
Сообщений: 471
20.02.2015, 12:42  [ТС]
Puporev, а если проще? можно по другому? если переключить в панели свойств слева? ничего такого там нет? или только так через кодинг как вы выше написали?

Добавлено через 7 минут
Puporev, ведь есть же такая опция в настройках что можно задать смену изображения курсора при наведении его на тот же Label. может и в данной ситуации можно как-то так сделать?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
20.02.2015, 12:53
Цитата Сообщение от barsik123 Посмотреть сообщение
а если проще?
Да куда проще? Навел мышь сменил цвет, убрал обратно старый цвет.
Или что нужно?
1
 Аватар для barsik123
4 / 4 / 0
Регистрация: 26.12.2014
Сообщений: 471
20.02.2015, 12:55  [ТС]
Puporev, да все норм. просто интересует может есть и другой метод чтобы получить этот результат без лишних записей. если нет то и этого будет достаточно
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
20.02.2015, 13:13
Цитата Сообщение от barsik123 Посмотреть сообщение
получить этот результат без лишних записей.
Есть, экстрасенсорный.
2
 Аватар для barsik123
4 / 4 / 0
Регистрация: 26.12.2014
Сообщений: 471
20.02.2015, 22:50  [ТС]
Puporev, до такого метода я еще не дорос. это как третий глаз откроется и чакры оттопырятся, не раньше )))

Добавлено через 9 часов 12 минут
Puporev, таким методом выделяется цветом не сам шрифт а весь Label. а нужно чтобы сама надпись становилась другим цветом

Добавлено через 7 минут
Puporev,

изменил на вот это. теперь работает как надо:
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Font.Color := clYellow
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label1.Font.Color := clBlack
end;
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33194 / 21480 / 8231
Регистрация: 22.10.2011
Сообщений: 36,848
Записей в блоге: 12
20.02.2015, 23:26
Лучший ответ Сообщение было отмечено barsik123 как решение

Решение

Лучше не завязываться на MouseMove по форме. Потому что если Label будет лежать на Panel-и, то код уже работать не будет. Либо рядом с одним лейблом лежит второй, и мышь переходит с первого на второй, не "чиркнув" при этом по форме. У любого компонента есть OnMouseEnter (мышь находится над BoundsRect объекта) и OnMouseLeave (мышь эту самую BoundsRect объекта покидает). Вот их и нужно использовать:
Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Color := clYellow
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color := clBlack
end;
Тогда, независимо от того, где лежит Label, и от того, что находится рядом с ним, код будет работать
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.02.2015, 23:26
Помогаю со студенческими работами здесь

Как изменить цвет label при наведении на него мыши?
Как изменить цвет label при наведении на него мыши??? Заранее очень благодарен!

Изменения курсора мыши при наведении на Label
Подскажите пожалуйста,как сделать ,чтобы при наведении на Label изменялся курсор мыши на нужный мне рисунок.Заранее благодарин.

Как отключить изменение цвета рамки TextBox при наведении курсора/выделение его
При использовании *TextBoxName*.BorderBrush рамка окрашивается, но если навести на TextBox курсор или перевести фокус, то цвет меняется....

Как сделать поворот изображения при наведении курсора мыши
Всем Привет! Подскажите как сделать поворот изображения при наведении курсора мыши? Вот как здесь:...

Как сделать, чтобы при наведении курсора на Label, он менял цвет?
Доброго времени суток! Как сделать, чтобы при наведении курсора на Label, он менял цвет? Пишу : void __fastcall...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru