procedure Tform_About.FormCreate(Sender: TObject);
begin
inherited; // <- GenericBase form
//
linklabel_EULA.Caption := 'Visit <a href="https://www.example.com">Website</a> or view <a href="#EULA">EULA</a>.';
end;
//----------------------------------------------------------------------------------------------------------------------
procedure Tform_About.linklabel_EULALinkClick(Sender: TObject; const Link: String; LinkType: TSysLinkType);
begin
case LinkType of
sltID: HandleIDLink(Link);
sltURL: ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;
end;
单击“EULA”后,LinkClick 过程的 Link 参数正确输入为“#EULA” - LinkType,但为 sltURL。有任何想法吗?一个错误?
蒂亚!
不,这按设计工作。
链接类型
sltURL
用于所有 href
链接:
<a href="something">Link caption</a>
链接类型
sltID
用于所有 id
链接:
<a id="something">Link caption</a>