Label как ссылка.

← →
Alexis © (2004-04-10 19:33) [0]

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

← →
Jack128 © (2004-04-10 19:44) [1]

Подобные компоненты уже есть, поищи.
Если же хочешь сам, то нужно обработать cm_mouseleave/cm_mouseenter (для подсветки цветом)и в OnClick обрабочике написать ShellExecute(0, nil, "http://www.delphimaster.ru", nil, nil, SW_SHOW);

← →
Alexis © (2004-04-10 20:03) [2]

Если же хочешь сам, то нужно обработать cm_mouseleave/cm_mouseenter

Пример можно? Уж не hook"и ли надо использовать?

← →
TButton © (2004-04-10 20:09) [3]

нет. обработку сообщений.

type TLinkLabel = class(TLabel) private FLink: string; procedure CMMouseEnter(var Message: TMessage); message cm_mouseenter; procedure CMMouseLeave(var Message: TMessage); message cm_mouseleave; protected procedure Click; override; published property Link: string read FLink write FLink; end; { TLinkLabel } procedure TLinkLabel.Click; begin inherited; if not (csDesigning in ComponentState) and (FLink <> "") then ShellExecute(0, nil, PChar(FLink), nil, nil, SW_SHOW); end; procedure TLinkLabel.CMMouseEnter(var Message: TMessage); begin inherited; Font.Color := СветлоГолубой; end; procedure TLinkLabel.CMMouseLeave(var Message: TMessage); begin inherited; Font.Color := Синий; end;

Label как ссылка. Найти похожие ветки