项目符号和编号

uses

  RichEdit ;

procedure TForm1 . Button1Click ( Sender : TObject );

var

  fmt : TParaformat2 ;

begin

  FillChar ( fmt , SizeOf ( fmt ), 0 );

  fmt . cbSize := SizeOf ( fmt );

  // The PARAFORMAT2 structure is used to set the numbering style.

  // This is done through the following structure members:

  fmt . dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or

    PFM_NUMBERINGTAB ;

  // Set the following values (bitwise-or them together) to identify

  // which of the remaining structure members are valid:

  // PFM_NUMBERING, PFM_NUMBERINGSTART, PFM_NUMBERINGSTYLE, and PFM_NUMBERINGTAB

  fmt . wNumbering := 2 ;

  //0 no numbering or bullets

  //1 (PFN_BULLET) uses bullet character

  //2 Uses Arabic numbers (1, 2, 3, ...).

  //3 Uses lowercase letters (a, b, c, ...).

  //4 Uses uppercase letters (A, B, C, ...).

  //5 Uses lowercase Roman numerals (i, ii, iii, ...).

  //6 Uses uppercase Roman numerals (I, II, III, ...).

  //7 Uses a sequence of characters beginning with the Unicode

  //  character specified by the wNumberingStart member.

  fmt . wNumberingStart := 1 ;

  //  Starting value for numbering.

  fmt . wNumberingStyle := $200 ;

  // Styles for numbering:

  // 0 : Follows the number with a right parenthesis.  1)

  // $100 : Encloses the number in parentheses.       (1)

  // $200 : Follows the number with a period.          1.

  // $300 : Displays only the number.                  1

  // $400 : Continues a numbered list without applying the next number or bullet.

  // $8000 : Starts a new number with wNumberingStart.

  fmt . wNumberingTab := 1440 div 4 ;

  // Minimum space between a paragraph number and the paragraph text, in twips

  RichEdit1 . Perform ( EM_SETPARAFORMAT , 0 , lParam (@ fmt ));

end ;