delphi中做超链接为什么要加入shellapi系统单元呢?

delphi中做超链接为什么要加入shellapi系统单元呢?,第1张

delphi里面nil = C++的null 就这个意思.

中国人说不 老外说NO

因为ShellExecute这个函数的声明在shellapi这个单元里面.

可以不用引用 你自己会导出的话,自己导出 就不用shellapi了.

for i:=1 to strtoint(edit1.text) do

begin

//把代码复制到这个里面,就你输入多少个就打开多少个.

end

先引用ShellAPI单元uses ShellAPI 2.代码中使用ShellExecute函数来实现ShellExecute(0,'open','www.qq.com',nil,nil,SW_SHOWNORMAL){在IE浏览器中打开www.qq.com网址} 3.举例:利用label来实现网址的超链接将Label的Caption属性设为你要链接的网址,可将字体设为带下划线,Cursor属性设为crHandPoint 手形在Click事件中添加代码procedure TForm1.Label1Click(Sender: TObject)

begin

Shellexecute(0,'open',PChar(Label1.caption),nil,nil,SW_SHOWNORMAL)

end


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/54825.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-02-26
下一篇2023-02-26

发表评论

登录后才能评论

评论列表(0条)

    保存