Обновлено: 01 декабря, 2018

Создаем гиперссылку в Delphi

Следующий код из компонента label создает гиперссылку на форме.

...
implementation
Const
  link = clBlue; //цвет ссылки
  alink = clRed; //цвет ссылки в момент нажатия
  vlink = clPurple; // цвет посещенной ссылки
{$R *.DFM}
... 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.font.Color:=link;
end; 
 
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Font.Color:=alink;
end; 
 
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Font.Color:=vlink;
end; 
 
procedure TForm1.Label1Click(Sender: TObject);
begin
   ShellExecute(handle,'open','http://prog-example.ru',nil,nil,SW_SHOW);
end;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439