|
Не знаю почему, но у многих новичков возникает вопрос о том: как
создать гиперссылку в своей программе ! Поэтому с целью уменьшить количество
таких вопросов я создал этот урок. Ну что ж давайте начинать:
- Открываем Delphi, создаем новый проект на
форму кидаем компонент, label с закладки standard. Сразу же
давайте изменим у него цвет и размер шрифта. Делается это все в свойстве Font.
Цвет я поставил синий, а шрифт сделал жирным, далее в свойстве Cursor компонента
Label выберите crHandPoint Делается это для того что бы при
наведении на ссылку курсор приобретал форму пальчика.
- Так теперь нам нужно указать Адрес Web ресурса на который
будет попадать пользователь при клике по ссылке. Адрес будем указывать в
свойстве Hint компонента Label. Т.Е прописываем там например
http://www.delphiexpert.ru
- Все предварительная подготовка завершена. Сейчас в верху,
после ключевого слова 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 шага вы научились создавать гиперссылки в своей
программе.
| 
