Как переделать TLabel в URL
Материал из DRKB
Приложение содержит ссылку, которая позволяет запускать Браузер и сразу перейти по указанному в ссылке адресу. Процесс создания URL заключается в переделке компоненты TLabel в URL.
Следующие 3 шага показывают как переделать TLabel в URL.
- Установите в свойствах шрифта подчёркивание и цвет ссылки.
- Установите свойства курсора. Когда мышка попадает на URL, то курсор должен превращаться в ручку.
- Записываем событие OnClick для ссылки. Когда пользователь нажимает на ссылку, то запускается браузер, который автоматически переходит на заданный адрес.
Однако этого мало! Нужно будет добавить в приложение ещё одну строчку. Та самая строчка:
ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);
Внимание: функция ShellExecute содержится в ShellAPI, поэтому вам придётся включить его в проект.
Пример приложения
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.
Author: Kevin Lange (klange@partslink.com)
Source: Взято из http://forum.sources.ru
ID: 00585