在一般網頁當滑鼠移到網址時會網址下方一般都有一條橫線會有像凸起的反應 在delphi中怎麼作 因小弟在label中加入連到網址的程式

ShellExecute(Handle, 'open', 'http://www.redget.com', nil, nil, SW_SHOW);

雖說在label中的font中加入底線 但當滑鼠移到label上面時效果沒有出來 用個button代替好像可以 但不知有沒有直接就可以顯示網址橫線反應的元件或方法 「堅持」從洗馬桶做起 Aric

huangeider您好: 您要的效果像下面這樣嗎?

void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 Label1->Font->Style= TFontStyles()<Font->Style= TFontStyles()>>fsUnderline;
}
//---------------------------------------------------------------------------

P.S:這是BCB的方式Delphi我不會,就請您自行轉一下吧< > 順心< > ～我也是在學習的階段,回答的不好請您多多見諒與指教～

procedure Thinformation.Label1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin     Label1.Font.Style:=[fsUnderline];    end;    procedure Thinformation.Label1MouseLeave(Sender: TObject);
begin
 Label1.Font.Style:=[fsItalic];
end;

效果不賴 感謝您回答 「堅持」從洗馬桶做起 Aric