Как переделать TLabel в URL?

Delphi , Компоненты и Классы , TLabel

Как переделать TLabel в URL?

By Kevin Lange (klange@partslink.com)

Приложение содержит ссылку, которая позволяет запускать Браузер и сразу перейти по указанному в ссылке адресу. Процесс создания URL заключается в переделке компоненты TLabel в URL.

Следующие 3 шага показывают как переделать TLabel в URL.

Шаг 1 Установите в свойствах шрифта подчёркивание и цвет ссылки.

Шаг 2 Установите свойства курсора. Когда мышка попадает на URL, то курсор должен превращаться в ручку.

Шаг 3 Записываем событие OnClick для ссылки. Когда пользователь нажимает на ссылку, то запускается браузер, который автоматически переходит на заданный адрес. Однако этого мало! Нужно будет добавить в приложение ещё одну строчку

Та самая строчка:

ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);

Внимание: функция ShellExecute содержится в ShellAPI, поэтому вам прийдётся включить его в проект.

Пример приложения

Code:

unit Unit1;

         

        interface

         

        uses

        Windows,  Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

        StdCtrls, ShellAPI;

         

        type

        TForm1 =  class(TForm)

            URLLabel: TLabel;

            Button1: TButton;

            procedure Button1Click(Sender:  TObject);

            procedure URLLabelClick(Sender:  TObject);

        private

            { Private declarations  }

        public

            { Public declarations  }

        end;

         

        var

        Form1:  TForm1;

         

        implementation

         

        {$R  *.DFM}

         

        procedure TForm1.Button1Click(Sender:  TObject);

        begin

        Close;

        end;

         

        procedure TForm1.URLLabelClick(Sender:  TObject);

        Const

        URL :  String = 'http://www.sources.ru';

        begin

        ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);

        end;

         

        end.

Взято из http://forum.sources.ru

Статья описывает процесс преобразования TLabel в URL-адрес с помощью ShellExecute и добавлением события OnClick для открытия браузера по указанному адресу при клике на TLabel.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TLabel ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 13:22:52/0.0052568912506104/1