Как создать гиперссылку в событии onMouseMove на панели, например?

[SkAndrew]

Доброе утро!

Как при наведении курсора на одну из строк изменить цвет ее шрифта, например с черного на синий? Как это предусмотрено у гиперссылок. Спасибо.

[Titan123]

http://www.programmersforum.ru/showthread.php?t=27971

[SkAndrew]

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

[Terran]

Сообщение от SkAndrew

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

Попробуйте так:

Procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Label1.Font.Color:=ClRed;
End;
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Label1.Font.Color:=ClBlack;
End;

[mihali4]

Плюс еще

Procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
Label1.Font.Color:=ClRed;
Label1.Font.Style:=Label1.Font.Style+[fsUnderline];
End;

Аналогично при уходе Label1.Font.Style-[fsUnderline];

[SkAndrew]

Спасибо, но речь не компонете Label, а о ТЕКСТЕ (!) на панели, например, одна из строчек которого должна при наведении на нее курсора подсвечиваться, как гиперссылка. Спасибо за любую идею.

[Air]

SkAndrew, а текст по Вашему где находится?

[mihali4]

Сообщение от SkAndrew

Спасибо, но речь не компонете Label, а о ТЕКСТЕ (!) на панели, например, одна из строчек которого должна при наведении на нее курсора подсвечиваться, как гиперссылка. Спасибо за любую идею.

А вам не приходило в голову, что многострочный текст или даже просто строку можно составить из некоторого количества лэйблов?

[Altera]

У компонентов обычно есть свойство FONT, если на нём текст отображается

[Izhic]

Может использовать TWebBrowser ... Или как то так.