Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Как получить эффект 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 на имя Вашей метки.

Прекрасно работает с Delphi 5 в Win2k/95/98 и NT4. Должен также работать со всеми версиями Delphi.

Автор: http://www.delphi3000.com


 

Комментарии   

 
0 #1 design 16.01.2017 00:10
My relatives every time say that I am killing my time here at
net, however I know I am getting knowledge everyday by reading thes nice
content.
Цитировать
 

Добавить комментарий


Защитный код
Обновить