//在uses中加入ShellAPI
//通过该lpFile参数可以实现链接到主页或ftp站点
//通过该lpFile参数可以实现链接到主页或ftp站点
ShellExecute(handle,nil,pchar('http://www.cumt.edu.cn'),nil,nil,sw_ShowNormal);
使超链接字体的颜色改变加入代码:
procedure TForm1.Label1MouseMove(Sender: TObject; Shift:TShiftState; X,
Y: Integer);
begin
Label1.Font.Style:=[fsbold,fsunderline]; //加粗、加下划线;
Label1.Font.Color:=clBlue;
//字体颜色
end;
begin
Label1.Font.Style:=[fsbold,fsunderline]; //加粗、加下划线;
Label1.Font.Color:=clBlue;