VPF::Аналог MSVC'шного LinkLabel - Форум программистов

drinkOut

Дата 27.2.2005, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

Репутация: нет
Всего: нет

Подскажите, как сделать, чтобы Label вёл себя подобно гиперссылке. smile

--------------------

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

Snowy

Дата 27.2.2005, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Из DRKB:

Код


procedure TForm1.URLLabelClick(Sender: TObject); 
Const 
  URL : String = 'http://www.sources.ru'; 
begin 
  ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL); 
end;

Добавлено @ 12:38
Вот мой код:

Код


procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  Label1.Font.Color:=clBlue;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color:=clBtnText;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(0,'open',pChar(Label1.Caption),NIL,NIL,SW_SHOWNORMAL);
end;

Это сообщение отредактировал(а) Snowy - 27.2.2005, 12:41

drinkOut

Дата 27.2.2005, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

Репутация: нет
Всего: нет

Snowy, спасибо было бы у меня >= 100 постов, я бы тебе плюсик поставил...
А пока придётся ограничиться устной благодарностью! smile

--------------------

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »