Создадим приложение Delphi «Гиперссылка», где из обыкновенной надписи, компонента Label.
Для этого разместим на
форме Delphi компонент Label и обработаем следующие события:

Для этого разместим на форме Delphi компонент Label и обработаем следующие события: 

  • OnMouseEnter: по наведению указателя мыши на надпись её вид изменится на указывающий палец, а текст надписи подчеркнётся, как у гиперссылки;
  •  OnMouseLeave: а когда указатель мыши покинет надпись, вид указателя вернётся в исходное состояние к привычному нам виду;
  •  OnClick: по щелчку надписи запускается браузер и открывает ресурс по интернет адресу.

 

 

procedure TForm1.FormCreate(Sender: TObject);
begin
//указатель ссылки отображаем синим цветом
Label1.Caption:='Программироване на Delphi';
Label1.Font.Color:=clBlue;
//адрес ресурса показываем как всплывающую подсказку
Label1.Hint:='http://www.delhinew.ru';
// включаем отображение подсказки для всех дочерних объектов формы
Form1.ShowHint:=true;
end;

Переход по ссылке выполнит функция Windows API – ShellExecute, которая находится в модуле ShellAPI, который нужно добавить в секцию Uses:
Uses
…,
ShellAPI;

События объекта Label1 обработаем следующим образом:
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
//устанавливаем вид указателя мыши
Label1.Cursor:= crHandPoint;
// устанавливаем для шрифта надписи атрибут "подчёркнутый"
Label1.Font.Style:=[fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
// меняем указатель мыши на стандартный
Label1.Cursor:=crDefault;
//снимаем дополнительные атрибуты шрифта
Label1.Font.Style:=[];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
//открываем ресурс
ShellExecute(Handle, 'open', 'http://www.delphinew.ru', ' ', ' ', SW_SHOWNORMAL);
end;
end.

Функция ShellExecute служит для открытия или печати заданного файла. Открыть файл- это значит запустить приложение и в нашем случае , для открытия интернет – адреса будет системный веб-браузер.

Скачать приложение Delphi ««Гиперссылка» »:

 

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


Защитный код
Обновить