高分请教，如何做一个有焦点的超链接控件？

Question

就是像Windows程序中的那种超链接static,有输入焦点 鼠标移动到上面成Windows手型。
微软的是什么Syslink 控件。Delphi有没有类似的啊？跪求之那种tlabel派生的就免了

Answer 1

那种tlabel派生的就免了为什么免了呢，不明白，呵呵。
那StaticText派生的呢有焦点是什么意思呢，

Answer 2

用tlabel可以，再加一个API，改变一下光标，就可以了！在onclick事件中添加一个API：shellexecute(handle,'open','http://……',nil,nil,sw_shownormal);链接到一个网址！不知道你说的是不是这个意思？

Answer 3

label没有焦点，试一下 statictext

Answer 4

设Label的Cursor属性为crHandPoint，在点击事件加shellexecute(handle,'open','http://……',nil,nil,sw_shownormal);

Answer 5

Label的Cursor属性为crHandPointprocedure Tform1.Label1click(Sender:TObject);
begin
  ShellExecute(Handle,'open','http://www.sohu.com',nil,nil,sw_shownormal);
end;

Answer 6

up修改Label的Cursor属性为crHandPoint