LABEL文字上的链接问题

發文回覆瀏覽次數：936

推到 Plurk!

推到 Facebook!

答題得分者是：hagar

ntjrr
高階會員

發表：240
回覆：312
積分：110
註冊：2005-04-24

發送簡訊給我

發表時間：2005-06-11 07:09:31

IP:222.184.xxx.xxx 未訂閱

文字内容为邮箱和网站名称，要这样的功能，鼠标移动到文字上方时变成手的图形，点邮箱名称内容即自动打开默认邮箱并已填好当前邮箱地址。点网站名称内容时打开IE指向该网站。

------
我的编程起步于ktop，我将永远支持ktop

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

發表時間：2005-06-11 08:48:31

IP:202.39.xxx.xxx 未訂閱

1.滑鼠變為手的形狀

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Cursor := crHandPoint;
end;

2.開啟預設 mail 程式或瀏覽器 Label1.Caption 可為 mailto:xxx@abc.cde.fgh、www.google.com .. 等須先 uses ShellApi;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', PChar(Label1.Caption), nil, nil, SW_SHOWNORMAL);
end;

-- hagar.

系統時間：2024-11-25 18:46:37

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

LABEL文字上的&#38142;接&#38382;&#39064;