Drag&Drop

[PM Heiko]

Hallo,

ich würde gern ein Memo als Drop-Ziel für Textdateien einrichten. Die Textdateien sollen aus dem Explorer oder Desktop auf meine Anwendung gezogen werden.

Leider finde ich nirgendwo irgenwelche Beispiele hierfür. Vielleicht kann mir ja jemnd einen Tipp geben.

2. Kann man auch markierte Texte aus einem Editor (zB. aus dem Delphi Editor) heraus "ziehen" und auf ein egenes Memo "droppen" ?

Heiko

[Robert Marquardt]

1 ist ganz einfach (wenn man es weiss
Eine Message-Methode:
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

Im FormCreate ein
DragAcceptFiles(Handle, True);
wobei Handle der Windowhandle einer TWinControl ist (das TMemo).
Entsprechend im FormDestroy
DragAcceptFiles(Handle, False);

<code>
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
I, N: Integer;
Buffer: array [0..1023] of Char;
begin
N := DragQueryFile(Msg.Drop, $FFFFFFFF, Buffer, SizeOf(Buffer));
for I := 0 to N - 1 do
begin
DragQueryFile(Msg.Drop, I, Buffer, SizeOf(Buffer));
if ExtractFileExt(Buffer) = '.blm' then
PlayList.Add(Buffer);
end;
DragFinish(Msg.Drop);
PlayBlinkenMovie;
Msg.Result := 0;
end;

</code&gt

[PM Heiko]

Mhh.. irgendwie tut das nicht

Wann geht das Programm denn in diese Routine, oder wo und wie muss ich sie aufrufen

[shadows]

Ich hab dir mal eine Passage aus meinem Quelltext rauskopiert. Siehe Anhang..