一个label的问题？

Question

我用一个label显示一个网址，怎么才能做到显示出来的地址点击直接可以链接呢？
比如label.caption := 'www.163.com';

Answer 1

在label的Click事件里添加:
ShellExecute(0, 'open', 'www.sohu.com', nil, nil, SW_SHOW);
要引用ShellAPI单元

Answer 2

如果要做成一般的链接效果,还可以加以下代码:
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  Label1.Font.Color := clBlue;
  Label1.Font.Style := [fsItalic,fsUnderline];
  Label1.Cursor := crHandPoint;
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Color := clBlack;
  Label1.Font.Style := [];
end;

Answer 3

没记错得话,SuiPack 界面控件都有直接可以用的,不用编码,设置一下就行了