如何在丰富的编辑中查找带下划线的文本？

Question

如果下面的格式有点不对，敬请谅解。

尝试从 Richedit 控件获取带下划线的文本，以确定单击时它是否是超链接。

该代码适用于 Delphi 2007 及以下版本。我知道有一个 TCharFormat2 结构，并且字符编码可能已更改。

但还没有改变这些的运气。

非常感谢任何帮助。谢谢。

----------------------------------------
function GetUnderlinedText( ARichEdit: TRichEdit; CharIdx: Integer ): String;  
var  
  i: Integer;  
  CharFormat: TCharFormat;    
  SelStart: Integer;  
begin  
  CharFormat.cbSize := SizeOf( TCharFormat );  
  CharFormat.dwMask := CFM_UNDERLINE;  

  ARichEdit.SelStart := CharIdx;  
  SendMessage( ARichEdit.Handle, EM_GETCHARFORMAT, 1, Integer( @CharFormat ) );  

  //------- If not underlined return empty str. ------------  
  if (CharFormat.dwEffects and CFE_UNDERLINE)=0 then  
  begin  
    Result := '';  
    Exit;  
  end;  

  //--------- Find Beginning of Underlined Text ------------  
  i := CharIdx;  
  while (i>0) do  
  begin  
    ARichEdit.SelStart := i;

    //------------ Check for New Line Char -----------------
    if( ARichEdit.Text[i]=#10 ) then
     Break;

    SendMessage( ARichEdit.Handle, EM_GETCHARFORMAT, 1, Integer( @CharFormat ) );

    //----------- Test if Character was Underlined ---------
    if (CharFormat.dwEffects and CFE_UNDERLINE)=0 then
    begin
      Break;
    end;

    Dec( i );
  end;

  //------------ Find Length of Underlined Text ------------  
  SelStart := i;  
  i:=1;  
  while (SelStart+i &< Length( ARichEdit.Text ) ) do //subtract the & from line   
  begin  
    ARichEdit.SelStart := SelStart + i;

    //------------ Check for New Line Char -----------------
    if( ARichEdit.Text[SelStart+i]=#10 ) then 
     Break;

    SendMessage( ARichEdit.Handle, EM_GETCHARFORMAT, 1, Integer( @CharFormat ) );

    //----------- Test if Character was Underlined ---------
    if (CharFormat.dwEffects and CFE_UNDERLINE)=0 then
    begin
      Break;
    end;

    Inc( i );
  end;

  ARichEdit.SelStart := SelStart;  
  ARichEdit.SelLength := i;

  Result := Trim(ARichEdit.SelText);

  ShowMessage( Result ); //Seems to be showing only part of the underlined text  
end;    

Answer 1

您确实知道可以让 Rich Edit 控件自动检测 URL，对吗？该控件将自动突出显示超链接，并在单击此类超链接时向您发送一条消息。此功能不是由 VCL 包装器提供的，但可以通过访问底层 Windows API 轻松启用。例如，可以在此处找到详细信息：

• http://scalabium.com/faq/dct0146.htm

如果我没记错的话，上面的 Scalabium 代码片段中有一个相当微妙的错误，但是借助优秀的 MSDN 文档，我相信您会找到它。

更新

是的，我没记错。 此处讨论了 Scalabium 代码中的错误。

更新 2

幸运的是，Scalabium 上的错误似乎已得到纠正。