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

[yunboddd]

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

[linzhengqun]

那种tlabel派生的就免了

为什么免了呢，不明白，呵呵。
那StaticText派生的呢

有焦点是什么意思呢，

[cjianwen]

用tlabel可以，再加一个API，改变一下光标，就可以了！

在onclick事件中添加一个API：

shellexecute(handle,'open','http://……',nil,nil,sw_shownormal);

链接到一个网址！

不知道你说的是不是这个意思？

[qinmaofan]

label没有焦点，试一下 statictext

[sseedd]

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

[纯冰糖]

Label的Cursor属性为crHandPoint

procedure Tform1.Label1click(Sender:TObject);
begin
ShellExecute(Handle,'open','http://www.sohu.com',nil,nil,sw_shownormal);
end;

[giveusomecolor]

帮你顶
~~

[helodd]

up

修改Label的Cursor属性为crHandPoint