Компонент delphi LinkLabel представляет собой элемент управления напоминающий Label за исключением того, что он может отображать гиперссылку. Каждая гиперссылка, отображаемая в элементе управления LinkLabel, является экземпляром класса LinkLabel.Link.
Рассмотрим, как создавать ссылку. Для начала ставим на нашу форму метку LinkLabel, устанавливаем значение свойства Caption равным <a href=»http:h-delphi.ru»>наш сайт</a>
Теперь мы напишем обработчик события OnLinkClick, для нашей ссылки:
1 2 3 4 5 | uses: ShellAPI; procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(handle,'open','/',nil,nil,SW_SHOW); end; |
Теперь объясню, что означает этот код. Функция ShellExecute предназначена для открытия файла, так же можно использовать для печати. Первый параметр handle родительского окна, второй — строка, указывающая, что сделать с файлом, в третьем параметре содержится имя открываемого файла, в четвертом находятся дополнительные параметры запуска исполняемого файла, в пятом параметре определяется директория по умолчанию, ну и последний параметр указывает, где будет отображен файл.
Теперь рассмотрим параметры нашего случая:
- handle — дескриптор главной формы (аналог Form1.handle)
- open – открытие файла
- / — имя открываемого файла
- nil – означает, что никаких дополнительных параметров нет
- nil — директория по умолчанию нам так же не нужна.
- SW_SHOW — активирует
Для придания полной реалистичности нашей ссылке, нужно установить значение свойства Cursor в crHandPoint.