Delphi 的 TLinkLabel 坏了吗？

Question

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”后，

Link

程序的

LinkClick

参数正确输入为

'#EULA'

，但

LinkType

参数为

sltURL

。有任何想法吗？一个错误？

Answer 1

不，这按设计工作。

链接类型

sltURL

用于所有

href

链接：

<a href="something">Link caption</a>

链接类型

sltID

用于所有

id

链接：

<a id="something">Link caption</a>