Страниц: [1]
Автор Тема: Подсветка Label'a  (Прочитано 364 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Gangsta
Участник
*

Репутация: 0
Offline Offline

Пол: Мужской
Сообщений: 17



Просмотр профиля
« : Март 06, 2010, 04:54:21 »

народ, срочно нужна помощь. кто нить знает как подсветить label или еще какой-нибдь другой подобный элемент? делаю типа ссылку на видео, но хочу с подсветкой для красоты!


[вложение удалено Администратором]
Записан

Tony Sky aka R.P
Ветеран
*****

Репутация: 27
Offline Offline

Пол: Мужской
Сообщений: 215



Просмотр профиля WWW
« Ответ #1 : Март 06, 2010, 05:44:02 »

если я правильно понял... то в onMouseMove лейбла напиши изменение цвета на какой хочешь... а на форме в onMouseMove вернуть в обратный - исходный цвет
Записан

CHERT
Гуру
******

Репутация: 84
Offline Offline

Пол: Мужской
Сообщений: 811


CodeGear RAD Studio 2009


Просмотр профиля
« Ответ #2 : Март 06, 2010, 05:50:49 »

А еще можешь сделать бегущую строку. Или можешь заставить моргать надпись, то есть очищать а потом отображать надпись каждые 1 сек
Записан

Если вы не можете опред. для чего нужны функции GetWindowsDirectory, GetSystemDirectory и GetCurrentDirectory, то остается надеяться лишь на то, что вы зараб. себе на жизнь чем-то, отличным от программирования.

Racer
Гуру
******

Репутация: 42
Offline Offline

Пол: Мужской
Сообщений: 721


Racer


Просмотр профиля
« Ответ #3 : Март 06, 2010, 09:29:31 »

ну только на форму мув а OnMouseLeave. это событие когда мышка покидает объект.
Записан

Gangsta
Участник
*

Репутация: 0
Offline Offline

Пол: Мужской
Сообщений: 17



Просмотр профиля
« Ответ #4 : Март 07, 2010, 05:00:20 »

спасибо чуваки и кому надо - вот подробная фишка:
// наводим мышку
procedure TForm2.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Color:=clblue;
  ReleaseCapture;
end;

// убираем мышку с лейбла
procedure TForm2.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color:=clblack;
  ReleaseCapture;
Записан

ZuBy
Гуру
******

Репутация: 76
Offline Offline

Пол: Мужской
Сообщений: 657


http://zubymplayer.com


Просмотр профиля WWW
« Ответ #5 : Март 07, 2010, 05:32:23 »

Цитировать
ReleaseCapture;
это не нужно
Записан

ZMSystem - Open Source Project
all for multimedia developers (http://zubymplayer.com)

Страниц: [1]
Печать
Перейти в: