Absatzmarken in TMemo

[bcvs]

So, jetzt habe ich eine Komponente daraus gemacht. Funktioniert soweit ganz gut, allerdings will ich noch das Copy/Paste abfangen, um nur den Text ohne die Absatzmarken in die Zwischenablage zu kopieren.

Also habe ich mir sowas gedacht:

Delphi-Quellcode:

type
  TMyRichEdit = class(TCustomRichEdit)
  private
    { Private-Deklarationen }
    procedure WMCopy(var Message: TMessage); message WM_Copy;
    //...
  protected
    { Protected-Deklarationen }
    //...
  public
    { Public-Deklarationen }
    //...
  published
    { Published-Deklarationen }
    //...
  end;


implementation


procedure TMyRichEdit.WMCopy(var Message: TMessage); 
begin
  // Das hier wird nicht ausgeführt
  CopyOhneAbsatzmarken;
end;

Müsste doch eigentlich so gehen, aber mein WMCopy wird nicht ausgeführt. Warum?