在线急~！如何在form上的一行字设置超连接？

Question

           请帮忙，如何在form上的一行字设置超连接？谢谢

Answer 1

//超级连接效果procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
        Y: Integer);
begin
label1.Font.Style:=[fsbold,fsunderline];
label1.font.color:=clyellow;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
        Y: Integer);
begin
label1.Font.Style:=[fsbold];
label1.font.color:=clmaroon;
end;//执行
use shellapi;
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(handle,'open','Explorer',pChar('http://www.csdn.net'),nil,SW_SHOW);
end;