uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellApi;
........
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0,'open','codenet.ru',0,'',sw_ShowNORMAL);
end;
Как создать гиперссылки.
Как создать гиперссылки. Я уже по всякому пробовал и ни фига.
а можно ещё это добавить для наглядности....
Код:
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
TLabel(Sender).Font.Style := TLabel(Sender).Font.Style + [fsUnderline];
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
TLabel(Sender).Font.Style := TLabel(Sender).Font.Style - [fsUnderline];
end;
begin
TLabel(Sender).Font.Style := TLabel(Sender).Font.Style + [fsUnderline];
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
TLabel(Sender).Font.Style := TLabel(Sender).Font.Style - [fsUnderline];
end;