Drag&Drop aus externer Anwendung

[wennerer]

Hallo,
weiß jemand ob es möglich ist aus einer externen Anwendung (zum Beispiel Browser) Text in eine Zelle eines Stringgrids zu ziehen?
Ich habe dazu leider nichts gefunden.

DragDrop.gif (113.86 KiB) 3992 mal betrachtet

Von einem Edit klappt es schon (auch wenn der Cursor nicht passt).

Viele Grüße
Bernd

[Soner]

Soweit ich mich erinnern kann, hatte das A. Melanders Drag&Drop-Komponente. Irgendjemand hat das auf Lazarus portiert. Such bei OPM nach DragDrop.
Das ist aber nur für Windows.

[af0815]

Ich bin mir nicht sicher, aber ist das nicht im DoubleCommander gelöst ? Der ist ja fpc/Lazarus basierend.

[Jorg3000]

Hallo!
Die in FreePascal enthaltenen Drag&Drop-Ereignisse/Methoden beziehen sich immer auf ein TDragObject, das auf ein Control in der eigenen Anwendung zeigt.
Damit ist es also nicht möglich, irgendwas von außerhalb der eigenen Anwendung zu empfangen.

Eine Ausnahme ist OnDropFiles (AllowDropFiles), aber das bezieht sich wirklich nur auf Dateien (Dateinamen). Andere externe Inhalte scheinen nicht vorgesehen zu sein.

Die notwendigen plattformabhängigen Dragging-Mechanismen scheint die oben verlinkte Komponente mitzubringen. Eventuell hat es auch etwas mit Docking zu tun, wobei kein Fenster, sondern andere Inhalte "angedockt" werden.

[theo]

Naja, aber ein bisschen geht das schon. Was erwartet ihr genau?
Auf dem Formular "AllowDropFiles:=true" und das Ereignis "OnDropFiles" einhängen.
Dann bekomme ich so einen Dateinamen in die gewünschte Zelle des StringGrid1:

Code: Alles auswählen

procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string);
var p: TPoint;
begin
    p := Mouse.CursorPos;
    if PtInRect(StringGrid1.BoundsRect, Form1.ScreenToClient(p)) then
    begin
      p := StringGrid1.ScreenToClient(p);
      p := StringGrid1.MouseToCell(p);
      StringGrid1.Cells[P.X, P.Y] := ExtractFileName(FileNames[0]);
    end;
end;   

Bei mir auf Linux/KDE fügt das auch z.B. markierte Texte aus dem Webbrowser ein. Merkwürdig, aber ist so.

[Mathias]

Bei mir auf Linux/KDE fügt das auch z.B. markierte Texte aus dem Webbrowser ein. Merkwürdig, aber ist so.

Ist dies kein Bug ?

[theo]

Bei mir auf Linux/KDE fügt das auch z.B. markierte Texte aus dem Webbrowser ein. Merkwürdig, aber ist so.

Ist dies kein Bug ?

Es ist ein Wunder!

Nein, wieso? Das tut ja keinem weh.
Es kann höchstens sein, dass es auf Win nicht so funktioniert. Das weiss ich aber nicht.

[wennerer]

Hallo,
zunächst allen vielen Dank für die Antworten. Ich werde mit euere Vorschläge alle Ansehen.
Zunächst hab ich den Code von Theo versucht. Leider klappt das bei mir unter Mint nicht. Was ich aber in dem Zug festgestellt hab ist das ich vom Browser in das Editfeld Text ziehen kann. Und zwar geht das auch ganz ohne Code. Warum auch immer.

Viele Grüße
Bernd

[theo]

Was ich aber in dem Zug festgestellt hab ist das ich vom Browser in das Editfeld Text ziehen kann. Und zwar geht das auch ganz ohne Code. Warum auch immer.

Das steht in dem von dir zitierten Text unter Problem 2.
https://wiki.freepascal.org/Drag_and_Dr ... C3%A4utert

[wennerer]

Danke!