Создавая приложение в 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 приложение.