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

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

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

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

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 !!!

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

• Компонент для сортировки listview
• Поиск файлов на компьютере (mfilescan)
• Delphi исходники - поиск кратчайшего пути в лабиринте
• Delphi компоненты - Label с эффектом градиента
• Исходник игры Солитер

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

• Delphi Уроки: Компонент Edit внутри компонента ListBox
• Delphi Уроки: Drag&Drop, учимся перетаскивать картинку по форме
• Delphi Видео уроки - Бегущая строка из компонента label