Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

← →
Jack128 ©   (2004-04-10 20:31) [4]

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c