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