Label-ссылка

[eldar]

Ребята помогите как сделать из label ссылку?

[Terran]

Можете сделать так:

Uses
  ShellApi;
...
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Label1.Cursor:=CrHandPoint;
End;
Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(application.Handle,'Open','http://programmersforum.ru/showthread.php?t=27971',Nil,Nil,SW_SHOWDEFAULT);
End;

[Dux]

Посмотрите здесь

[mihali4]

Чем, собственно, простой лабел отличается от ссылки?
А вот чем:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Label1.Font.Color:=clBlue;
Label1.Font.Style:=Label1.Font.Style+[fsUnderLine];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clBlack;
Label1.Font.Style:=Label1.Font.Style-[fsUnderLine];
end;