Wie DragDrop-Ende signalisieren?

[Benmik]

In meinem Programm realisiere ich DragDrop sowohl innerhalb der Delphi-Anwendung als auch nach außerhalb; Letzteres mit der The-Drag-and-Drop-Component-Suite-for-Delphi von Sven Harazim (ehemals Anders Melander). Das funktioniert auch.

Wenn ich anfange, ein Objekt zu ziehen, dann startet Delphi DragDropBegin - zu diesem Zeitpunkt ist ja noch nicht klar, wohin das Objekt geht. Wenn ich es nun in ein anderes Windows-Programm außerhalb der Delphi-Anwendung ziehe und dann wieder zurückkehre, dann hat die Delphi-Anwendung nicht mitbekommen, dass DragDrop vorbei ist. Es gibt zwar bei der Komponente das Ereignis AfterDrop, das auch ausgelöst wird, aber es gelingt mir nicht, damit das Delphi-DragDrop abzubrechen, und auch das manuelle Setzen des Mauszeiger zeigt keine Wirkung. Müsste man sowas wie DragFinish senden, und wenn ja, wie? Oder wie macht man das?

[Uwe Raabe]

Kannst du mal ein minimales Codebeispiel zeigen?

[Benmik]

Hallo Uwe,

Frohes Neues Jahr!

Anbei ein Minimalbeispiel, leider muss dazu die erwähnte Komponente installiert sein. Das Beispiel besteht lediglich aus der Form mit einem TPanel darauf, dazu noch ein DropFileSource. Für die Demonstration muss es die Datei "C:\Temp\Test01.jpg" noch nicht mal geben.

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  Panel1.Caption := 'C:\Temp\Test01.jpg';
  Panel1.DragMode := dmAutomatic;
end;

procedure TForm3.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  DropFileSource1.Files.Clear;
  DropFileSource1.Files.Add(Panel1.Caption);
end;

procedure TForm3.DropFileSource1GetDragImage(Sender: TObject; const DragSourceHelper: IDragSourceHelper; var Handled: Boolean);
var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  Handled := Succeeded(DragSourceHelper.InitializeFromWindow(Panel1.Handle, Pt, TCustomDropSource(Sender) as IDataObject));
end;

procedure TForm3.Panel1StartDrag(Sender: TObject; var DragObject: TDragObject);
begin
  DropFileSource1.Execute(False);
end;

[Gausi]

Wenn du das StartDrag-Event des Panels benutzt, dann sollte das Ende beim OnEndDrag-Event des Panels behandelt werden können. Oder kommt das auch nicht an?

[Benmik]

Das OnEndDrag-Event des Panels findet nicht statt, wenn ich zur Anwendung zurückkehre (z.B. mit ALT-TAB), sondern erst, wenn ich wieder auf das Panel klicke. Bis dahin zeigt der Mauszeiger aber "Kein-DragDrop" und die DragDrop-Aktion ist offensichtlich noch nicht abgeschlossen, was ich gern programmatisch erreichen würde.

[Uwe Raabe]

Wenn du DragSource.Execute(False) (oder nur Execute) aufrufst, wird das DragDrop synchron gestartet und gibt im Result das Ergebnis der Operation zurück. Damit das VCL-Dragging nicht weiter dazwischen funkt, solltest du das über einen Aufruf von Abort am Ende des StartDrag-Events beenden.

Das sollte insbesondere auch beim asynchronen Aufruf erfolgen.