Подсветка Label'a

[Gangsta]

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


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

[Tony Sky aka R.P]

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

[CHERT]

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

[Racer]

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

[Gangsta]

спасибо чуваки и кому надо - вот подробная фишка:
// наводим мышку
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]

ReleaseCapture;

это не нужно