如果你想要有类似主页那样指向某字体,该字体就出现下划线,鼠标指针变为一支手指,按下后就打开浏览器或邮件编写器的功能,请按下列办法做(该方法只是在前面讲的实现超链接的方法上加入一些效果):
先在一个窗体中加入一个Label1,在OnMouseMove事件里加入下列代码
procedure TForm1.Label1MouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);beginLabel1.Font.Style:=[fsbold,fsunderline];Label1.Font.Color:=clYellow;end;
接着在Form1的OnMouseMove事件里加入下列代码
procedure TForm1.FormMouseMove(Sender: TObject;shift:Tshiftstate;x,y:integer);beginLabel1.Font.Style:=[fsbold];Label1.Font.Color :=clm...[ 查看全文 ]