RichEdit Nummerierungen

[Bent1995]

Hallo,

Ich habe im Internet einen Code gefunden, der auf Knopfdruck die Zeilen Nummeriert, eiziger haken: Es geht nur wenn man aufn Button klickt, kann man nich sagen, dass das automatiosch wie bei Word passieren soll, bzw. das er sogesehen den vorrangegangenen Buchstaben abfragt, und dann automatisch die Nummerirungsprozedur beginnt?

Delphi-Quellcode:

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));

[s.h.a.r.k]

Führ den Code halt bei OnChange des RichEdits aus.