.txt Datei in ein TMemo ziehen (drap&drop)

**Nextasy2k**

Ich komme leider nicht mehr weiter und habe dazu nichts gefunden. Möchte gerne z.b. eine auf dem Desktop sich befindente .txt Datei mit der Maus in mein TMemo reinziehen, so das die Datei dann im Memo angezeigt wird.

Verwende diesen Code:

zusammenfalten · markieren

Delphi-Quellcode:

			private

  procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES;

procedure TForm1.WMDROPFILES(var Msg: TMessage);

var

  i, Counts, Size: Integer;

  PCharFileName: PChar;

begin

  inherited;

  PCharFileName:=nil;

  Counts:=DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

  for i:=0 to Counts - 1 do

    begin

      Size:=DragQueryFile(Msg.WParam, i, nil, 0) + 1;

      PCharFileName:=StrAlloc(Size);

      DragQueryFile(Msg.WParam, i, PCharFileName, Size);

      Memo1.Lines.Add(String(PCharFileName));

      StrDispose(PCharFileName);

   end;

  DragFinish(Msg.WParam);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  DragAcceptFiles(Memo1.Handle, True);

end;

Eigentlich galt der für ne ListBox, daher mein Versuch mit dem Memo, doch leider passiert nach dem drap&drop garnichts. Wäre für Hilfe oder verbesserungen/aufklärung sehr sehr dankbar!

.txt Datei in ein TMemo ziehen (drap&drop)

.txt Datei in ein TMemo ziehen (drap&drop)

Forumregeln