发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 12.3 链接的视觉效果
发信站: 哈工大紫丁香 (2000年09月01日17:23:05 星期五), 站内信件

链接的视觉效果 

　　要有类似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.hit.edu.cn·[FROM: 202.118.227.107]