Создаем гиперссылку в 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;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (7 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий