1. Der RichEdit-Fensterklasse kannst du das eigenständige
OLE Drag&Drop verbieten, indem du das Fensterstil-Bit ES_NOOLEDRAGDROP setzt.
Überschreibe dazu in deiner abgeleiteten Klasse die Routine "CreateParams":
Delphi-Quellcode:
TMyRichEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_NOOLEDRAGDROP;
end;
2. Normalerweise geht auch der von dir gewünschte Weg ohne Probleme. Hast du auch an alles gedacht, z.B. das DragAcceptFiles (am besten in in CreateWindowHandle)?
Delphi-Quellcode:
TMyRichEdit.CreateWindowHandle(
const Params: TCreateParams);
begin
inherited;
if HandleAllocated
then
DragAcceptFiles(
Handle, True);
end;