荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: Peter (小飞侠), 信区: Program
标  题: DelphiTips 039 - 链接的视觉效果
发信站: BBS 荔园晨风站 (Thu Jan 21 21:36:42 1999), 转信


                          链接的视觉效果

  要有类似WIN98那样指向字体,该字体就出现下划线,鼠标指针变为一支手指,按
下后就打开浏览器或邮件编写器的功能,按下列办法做(该方法只是在前面讲的实现
超链接的方法上加入一些效果):
  先在一个窗体中加入一个Label1,加入下列代码
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;

procedure TForm1.Label1Click(Sender: TObject);
begin
Shellexecute(handle,nil,pchar('mailto:guihong@163.net'),nil,nil,sw_shownormal)
;
end;
再将Label1.Cursor设为crHandPoint,Label1的OnMouseMove事件设为
Label1MouseMove, Form1的OnMouseMove事件设为FormMouseMove,Label1的OnClick
事件设为Label1Click,那么就这种效果了。

--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店