Automatisches Drag&Drop von JvRichEdit überschreiben / deakt

[MrKnogge]

Moin,

wenn ich eine beliebige Datei auf ein JvRichEdit ziehe, so erstellt das JvRichEdit automatisch ein Objekt. Das möchte ich gerne deaktivieren, da ich mich selber darum kümmern möchte.

Folgenden Code habe ich bisher bei einer ListBox verwendet:

Delphi-Quellcode:

uses JvExStdCtrls, JvRichEdit, shellapi;

...

type
  TJvRichEdit = class(JvRichEdit.TJvRichEdit)
  private
    procedure GetDroppedFileNames(var msg : TWMDropFiles); message WM_DROPFILES;
  end;

...

procedure TJvRichEdit.GetDroppedFileNames(var msg : TWMDropFiles);
var
  sFileName    : string;
  dwFileCount  : cardinal;
  i            : cardinal;
  dwReqdLength : cardinal;
begin
  dwFileCount := DragQueryFile(msg.Drop, $FFFFFFFF, nil, 0);
  for i := 0 to dwFileCount - 1 do
  begin
    // Pfadlänge ermitteln
    dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);

    // Dateinamen abfragen
    sFileName    := StringOfChar(#00,dwReqdLength);          // length + 1
    DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);

    // Datei laden
    Lines.LoadFromFile(sFileName);
  end;
end;

Aber bei einem JvRichEdit wird nicht mal die Funktion aufgerufen.

Wie schaffe ich es, einfach nur die gedroppten Dateinamen zu erhalten, ohne das JvRichEdit automatisch Objekte erstellt ?

Viele Grüße