Делаем Label как ссылку

Как получить эффект URL на компоненте Label, например, в окне «О программе...». Есть простой путь для выполнения этого.

Объявления:

procedure Label4Click(Sender: TObject); 
protected
    procedure WndProc(var Message : TMessage); override;

Определения:

procedure TAboutBox.WndProc(var Message : TMessage); 
begin
    if Message.LParam = Longint(Label4) then
    begin
      if (Message.Msg = CM_MOUSELEAVE) then
      begin
       Label4.Font.Color := clWindowText; 
       Label4.Font.Style := Label4.Font.Style - [fsUnderline]; 
      end; 
      if (Message.Msg = CM_MOUSEENTER) then
      begin
       Label4.Font.Color := clBlue; 
       Label4.Font.Style := Label4.Font.Style + [fsUnderline]; 
      end; 
    end; 
 
inherited WndProc(Message); 
end; 
 
procedure TAboutBox.Label4Click(Sender: TObject); 
begin
  ShellExecute(MainFrm.Handle, 'open', PChar(
        'http://www.url.com/'), nil, 
        PChar(ExtractFilePath('http://www.url.com/')),
        SW_SHOWNORMAL) 
end;

Понятное дело, измените Label4 на имя Вашей метки.

—

02.09.2016

coder

Делаем Label как ссылку

Комментарии