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?