Delphi的TLinkLabel是否异常？点击#EULA时LinkType识别错误

问题代码 #

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参数正确传入为#EULA，但LinkType参数却为sltURL，而非预期的sltID。这是Bug吗？或是有其他原因？

原因分析 #

这不是控件Bug，而是TSysLink控件的底层解析规则导致的。TSysLink基于Windows原生SysLink控件，原生控件对#开头链接的识别逻辑是：只有当链接指向当前窗口内存在的控件资源ID时，才会被标记为sltID类型。你直接写#EULA，控件无法关联到一个具体的窗口控件资源ID，因此会被默认归类为sltURL类型。

解决方案 #

方案1：手动判断Link值（推荐）

无需依赖LinkType，直接根据Link参数的值来分支处理，避免控件解析规则的限制：

procedure Tform_About.linklabel_EULALinkClick(Sender: TObject; const Link: String; LinkType: TSysLinkType);
begin
  if Link = '#EULA' then
    HandleIDLink(Link)
  else
    ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
end;

方案2：关联真实控件资源ID

如果一定要让#EULA被识别为sltID，需要将EULA关联到当前窗体中某个控件的资源ID（比如显示EULA内容的TMemo控件）。在Delphi中，可以通过控件的Handle或资源ID来映射，链接格式改为#+控件资源ID数值，然后在HandleIDLink中通过ID找到对应控件并处理。

内容的提问来源于stack exchange，提问作者tua