Delphi Уроки: Гиперссылка из Label на Раз, Два, Три

Опубиковано: 03.12.2008 г., автор: , просмотров: 40754

Delphi Уроки: Гиперссылка из Label на Раз, Два, Три

Не знаю почему, но у многих новичков возникает вопрос о том: как создать гиперссылку в своей программе ! Поэтому с целью уменьшить количество таких вопросов я создал этот урок. Ну что ж давайте начинать:

1. Открываем Delphi, создаем новый проект на форму кидаем компонент, label с закладки standard. Сразу же давайте изменим у него цвет и размер шрифта. Делается это все в свойстве Font. Цвет я поставил синий, а шрифт сделал жирным, далее в свойстве Cursor компонента Label выберите crHandPoint Делается это для того что бы при наведении на ссылку курсор приобретал форму пальчика.

2. Так теперь нам нужно указать Адрес Web ресурса на который будет попадать пользователь при клике по ссылке. Адрес будем указывать в свойстве Hint компонента Label. Т.Е прописываем там например http://www.delphiexpert.ru

Delphi label

3. Все предварительная подготовка завершена. Сейчас в верху, после ключевого слова uses допишите SHELLAPI, теперь выделяем компонент Label и создаем на нем обработчик событий OnClick. Полный код того что должно находиться в обработчике представлен ниже, допишите к себе недостающие строки.

procedure TForm1.Label1Click(Sender: TObject);
begin
If (Sender is TLabel) then
with (Sender as Tlabel) do
ShellExecute(Application.Handle,PChar('open'),
PChar(Hint),
PChar(0),
nil,
SW_NORMAL);
end;

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

До встречи DelphiExpert.ru !!!



Похожие материалы

Последние из рубрики

frizikduba 23 Ноя 2012 в 00:00 #
Спасибо за урок
Raska 19 Янв 2011 в 00:00 #
Спосибо за GrafGriAl
GrafGriAl 23 Авг 2010 в 00:00 #
Если у кого то не работает при нажатии строчку:
SW_NORMAL);
замените на
SW_SHOWNORMAL);
Александр 30 Мар 2010 в 00:00 #
Каким образом сделать так, чтобы ссылка открывалась в браузере, используемым по умолчанию юзером?
АЛЕКС 13 Фев 2010 в 00:00 #
Алина В windows есть (BAT-ФАЙЛЫ) (-_-) ПОЧИТАЙ ЛУЧШЕ О НИХ...

ОтменитьДобавить комментарий