Nachtrag: Ich habe zum Test eine Edit-Komponente gemacht, die WM_Copy abfangen soll. Leite ich diese Komponemte von TCustomMemo ab, funktioniert alles, wie gewünscht. Wird von TCustomRichEdit abgeleitet, kommt die wm_copy-Message anscheinend nicht bei der Komponente an.
TCustomRichEdit ist selbst auch von TCustomMemo abgeleitet, also passiert anscheined irgendetwas in TCustomRichEdit, was mich nicht mehr auf die wm_copy-Message reagieren lässt. Aber was? Ich finde da nichts.
Hat jemand eine Idee?
Hier nochmal zur Verdeutlichung:
Delphi-Quellcode:
type
TMyEdit = class(TCustomRichEdit)
private
procedure WMCopy(var Message: TMessage); message WM_Copy;
end;
procedure TMyEdit.WMCopy(var Message: TMessage);
begin
// Das hier wird nicht ausgeführt
end;
Delphi-Quellcode:
type
TMyEdit = class(TCustomMemo)
private
procedure WMCopy(var Message: TMessage); message WM_Copy;
end;
procedure TMyEdit.WMCopy(var Message: TMessage);
begin
// Das hier wird ausgeführt
end;