Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
2. Jan 2022
Das merke ich mir mal für später. Zurzeit müsste ich da einiges programmieren, das lohnt im Moment nicht.
Ich habe es jetzt so gelöst, dass das Gedrückthalten einer bestimmten Taste auf die Komponente umleitet und dabei Uwes Abort eingesetzt wird.
Vielen Dank euch beiden.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
2. Jan 2022
Das funktioniert prima - aber leider legt es natürlich auch das DragDrop innerhalb der Delphi-Anwendung lahm. Ich hatte schon überlegt, ob ich die beiden Drag-Modi differenzieren sollte (durch die ALT-Taste, z.B.), aber ich fände es schon nett, wenn das bequemer ginge. Es funktioniert ja auch, man muss am Ende nur kurz nochmal klicken, aber das Ganze stört und ist unelegant.
Man müsste das Abort...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
1. Jan 2022
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.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
1. Jan 2022
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.
procedure TForm3.FormCreate(Sender: TObject);
begin
Panel1.Caption :=...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Benmik,
1. Jan 2022
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...