Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Различные стили подчеркивания для TRichEdit

01.01.2007
uses
   
RichEdit;
 
 
// Underline styles
const
   CFU_UNDERLINETHICK
= 9;
   CFU_UNDERLINEWAVE
= 8;
   CFU_UNDERLINEDASHDOTDOT
= 7;
   CFU_UNDERLINEDASHDOT
= 6;
   CFU_UNDERLINEDASH
= 5;
   CFU_UNDERLINEDOTTED
= 4;
   CFU_UNDERLINE
= 1;
   CFU_UNDERLINENONE
= 0;
 
 procedure RE_SetCharFormat
(ARichEdit: TRichEdit; AUnderlineType: Byte; AColor: Word);
 
var
   
// The CHARFORMAT2 structure contains information about
 
// character formatting in a rich edit control.
 
Format: CHARFORMAT2;
 
begin
   
FillChar(Format, SizeOf(Format), 0);
   
with Format do
   
begin
     cbSize
:= SizeOf(Format);
     dwMask
:= CFM_UNDERLINETYPE;
     bUnderlineType
:= AUnderlineType or AColor;
     
ARichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
   
end;
 
end;
 
 
// Underline the current selection with a CFU_UNDERLINEWAVE line style (color red);
procedure TForm1
.Button1Click(Sender: TObject);
 
begin
   RE_SetCharFormat
(RichEdit1, CFU_UNDERLINEWAVE, $50);
 
end;

Взято с сайта: https://www.swissdelphicenter.ch