请问怎样实现一个超级链接?(0分)

  • 主题发起人 主题发起人 flyso
  • 开始时间 开始时间
F

flyso

Unregistered / Unconfirmed
GUEST, unregistred user!
需要用的控件是什么,需要写哪些代码,请高手指教。。。
 
用一个Label
uses ShellAPI;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'http://www.delphibbs.com', '', '', SW_SHOWNORMAL);
end;
还有就是把鼠标指针的属性改一改就行了
 
在把Lable上的光标形状设成小手样、设置字体带下画线就更象了[:)]
 
谢谢了,我会了[:)]
 
后退
顶部