Firemonkey Drag&Drop

[sintronic86]

Ich weiß, das Thema ist schon ziemlich alt. Leider hänge ich gerade an genau dieser Stelle.

Das DragDrop-Verhalten mit app-eigenen Komponenten, bei denen DragMode auf dmAutomatic steht funktioniert auch super.
Ich möchte allerdings jetzt Dateien von außen auf das TDropTarget fallen lassen! Leider reagiert dieses überhaupt nicht....

Auch via Google und der Delphi-Hilfe bin ich leider nicht fündig geworden!

Beste Grüße
Björn

[Harry Stahl]

Hier mal ein Beispiel, um die Dateinamen per Windows Explorer (bzw. auf dem MAC vom Finder aus) in ein Memofeld zu ziehen:

Delphi-Quellcode:

procedure TForm6.Memo1DragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
var
  S: string;
begin
  if (Data.files <> NIL) then
  begin
    for S in Data.Files do
      TMemo (Sender).lines.Add (s);
  end;
end;

procedure TForm6.Memo1DragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Operation: TDragOperation);
begin
  Operation := TDragOperation.Copy;
end;

Hinweis: In meinem letzten FMX-Buch zu Delphi 10.2 findest Du bei Bedarf unter Rezept 12 ein Beispiel, mit dem man Text z.B. aus den meisten Web-Browsern per Drag & Drop in sein Programm (z.B. ein Edit-Feld) ziehen kann.

[sintronic86]

Guten Morgen!

Danke für die schnelle Antwort.
Trotz Verwendung deines Codes reagiert mein Programm leider überhaupt nicht darauf (siehe Anhang)!
Muss ich eventuell eine Option alá "DragDropActive" oder so was aktivieren?

[Towmuz]

Moin,

hast du bei der Komponente auf die Gedropt werden soll evtl. das Häkchen bei der HitTest Eigenschaft rausgenommen?

[sintronic86]

Nein.

Ich habe zum Testen des Codes von Harry mal ein völlig neues Projekt erstellt und dort auf die Form nur ein TMemo geworfen. D.h. es ist sonst nichts weiter drauf.
Auch habe ich lediglich den Code von Harry implementiert. Aber leider passiert auch hier nichts....

[Harry Stahl]

Ich habe in der Anlage das Demo einmal als Source und einmal als Exe beigefügt. Das funktioniert hier sowohl außerhalb als auch innerhalb der VM (Virtualbox).

Funktioniert das bei Dir selber kompilierte Projekt nicht? Und wenn nein, dann mit der von mir kompilierten Exe (innerhalb oder außerhalb der VM)?

[Rollo62]

Hallo Harry,

habs mal gerade schnell getestet unter Win32, Win64, OSX.
Funktioniert bei mir so wie es soll.

Rollo

[sintronic86]

Guten Morgen!

Also die fertige exe funktioniert wie sie soll.
Compiliere ich aber deinen Code selbst, dann will es wieder nicht!

Edit: Ich habe gerade festgestellt, dass es nur dann nicht funktioniert, wenn ich das Programm aus Delphi heraus starte.
Starte ich die erzeugte exe direkt, dann geht es!

Woran kann das nun wieder liegen?