首页 / 软件开发 / Delphi / delphi编程类似链接的效果

delphi编程类似链接的效果2008-02-02如果你想要有类似主页那样指向某字体，该字体就出现下划线，鼠标指针变为一支手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做（该方法只是在前面讲的实现超链接的方法上加入一些效果）：

先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码

procedure TForm1.Label1MouseMove（Sender: TObject;shift:Tshiftstate;x,y:integer）;
begin
Label1.Font.Style:=[fsbold,fsunderline];
Label1.Font.Color:=clYellow;
end;

接着在Form1的OnMouseMove事件里加入下列代码

procedure TForm1.FormMouseMove（Sender: TObject;shift:Tshiftstate;x,y:integer）;
begin
Label1.Font.Style:=[fsbold];
Label1.Font.Color :=clmaroon;
end;
procedure TForm1.Label1Click（Sender: TObject）;
begin
Shellexecute（handle,nil,pchar（mailto:guihong@163.net）,nil,nil,sw_shownormal）;
end;

再将Label1.Cursor的鼠标指针设为crHandPoint，那么就有这种效果了。