delphi編程類似鏈接的效果

如果你想要有類似主頁那樣指向某字體，該字體就出現下劃線，鼠標指針變為一支手指，按下後就打開浏覽器或郵件編寫器的功能，請按下列辦法做（該方法只是在前面講的實現超鏈接的方法上加入一些效果）：

先在一個窗體中加入一個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:[email protected]),nil,nil,sw_shownormal);
end;

再將Label1.Cursor的鼠標指針設為crHandPoint，那麼就有這種效果了。