Как сделать интернет-ссылку в Delphi приложении

Создавая приложение в Delphi, обычно создаем и рекламное окно, его еще можно назвать информационным. В нем, мы обычно, помещаем информацию о себе и если у нас есть свой сайт и адрес электронной почты, то мы, конечно же разместим эти данные в нем.

Но если мы просто разместим эти данные с помощью компонента Label, то нам, чтобы воспользоваться ими, придется переписывать их вручную. Хорошо бы сделать так, как на это делается на любой странице интернета, подвел указатель мыши, курсор изменил свой вид, нажал на ссылку и наш сайт открылся.

интернет ссылки

Давайте расположим на форме 2 компонента Label, один для адреса нашего сайта другой - наш почтовый адрес. Цвет компонентов сделаем синим. Свойства Caption компонентов я  сделал такими как на рисунке сверху.

 Создадим обработчик onClick для Label1:

procedure TForm1.Label1Click(Sender: TObject);
begin
    ShellExecute(Application.Handle, nil, 'https://delphi-prg.ru/', nil, nil,SW_SHOWNOACTIVATE);
end;

Для Label2 (адрес электронной почты, вместо yyy@yyy.ru напишите свой):

procedure TForm1.Label2Click(Sender: TObject);
begin
    ShellExecute(Application.Handle, nil, 'mailto:yyy@yyy.ru', nil, nil,SW_SHOWNOACTIVATE);
end;

Так как мы используем функцию ShellExecute, то должны добавить модуль ShellAPI в список используемых модулей ( uses).

Подведя мышь над названием сайта, сделаем так чтобы цвет изменился на красный:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Color := clred;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
   Label1.Font.Color := clBlue;
end;

и убрав мышь с заголовка восстановим обратно синий цвет.

При создании формы в обработчике onCreate напишем такой код для того, чтобы курсор над заголовками менялся и принимал вид руки с поднятым указательным пальцем свойству Cursor присваиваем значение crHandPoint, а шрифт устанавливаем в синий цвет.

procedure TForm1.FormCreate(Sender: TObject);
begin
   Label1.Cursor := crHandPoint;
   Label2.Cursor := crHandPoint;

   Label1.Font.Color := clBlue;
   Label2.Font.Color := clBlue;
end;

Теперь запустите приложение и опробуйте программу на практике.

Итог: мы научились интегрировать интернет ссылки в Delphi приложение.

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *