AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Seltsames Drag&Drop Problem in Firemonkey seit Delphi 10.42

Seltsames Drag&Drop Problem in Firemonkey seit Delphi 10.42

Ein Thema von SpockHH · begonnen am 1. Mai 2021 · letzter Beitrag vom 1. Mai 2021
Antwort Antwort
SpockHH

Registriert seit: 18. Apr 2019
Ort: Hamburg
4 Beiträge
 
Delphi 10.4 Sydney
 
#1

Seltsames Drag&Drop Problem in Firemonkey seit Delphi 10.42

  Alt 1. Mai 2021, 13:33
Hallo,
ich habe in Delphi 10.42 ein seltsames Problem mit Drag&Drop.
Ich erstelle ein neues Projekt, platziere ein TDropTarget darauf und setze den Event Handler OnDragOver:

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

In Delphi 10.42 erkennt er den Bereich des TDropTarget nicht korrekt, das DragOver Event wird nur in einem Teilbereich des TDropTargets ausgelöst, aber dafür auch außerhalb. Wenn sich das Formular der Anwendung links oben auf dem Desktop befindet, erkennt er es fast korrekt. Je weiter ich die Anwendung nach rechts unten verschiebe, desto mehr verschiebt sich der Bereich, in dem das Dragover Event ausgelöst wird.

Gilt übrigens auch für das DragOver anderer Komponenten.

Die gleiche Anwendung läuft unter Delphi 10.32 völlig einwandfrei.

Hat jemand eine Idee?

Vielen Dank und schönes Wochenende!
Arnd
  Mit Zitat antworten Zitat
jziersch

Registriert seit: 9. Okt 2003
Ort: München
181 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Seltsames Drag&Drop Problem in Firemonkey seit Delphi 10.42

  Alt 1. Mai 2021, 15:39
In dem DragOver handler brauchst Du diesen code:

Scale := WindowHandleToPlatform(FForm.Handle).Scale; // JZ
P.X := Round( P.X / Scale );
P.Y := Round( P.Y / Scale );

Siehe auch: https://quality.embarcadero.com/browse/RSP-33045
und meinen fix hier https://quality.embarcadero.com/browse/RSP-33733
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF
  Mit Zitat antworten Zitat
SpockHH

Registriert seit: 18. Apr 2019
Ort: Hamburg
4 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Seltsames Drag&Drop Problem in Firemonkey seit Delphi 10.42

  Alt 1. Mai 2021, 19:48
Hallo jziersch,

Deine Lösung funktioniert zwar nicht (DragOver wird ja gar erst ausgelöst), aber Du hast mich auf die richtige Spur gebracht. Vielen Dank dafür.

Man muss die Unit FMX.Platform.Win modifizieren, hier der geänderte Codeschnipsel (Änderungen sind mit "// nol+" gekennzeichnet):

function TWinDropTarget.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HRESULT;
var
P: TPointF;
Operation: TDragOperation;
LScale: single; // nol+
begin
Result := E_UNEXPECTED;
try
dwEffect := DROPEFFECT_NONE;
P := PointF(pt.X, pt.Y);

// nol+ begin
LScale := WindowHandleToPlatform(Form.Handle).Scale; // var LScale: single;
P.X := Round( P.X / LScale );
P.Y := Round( P.Y / LScale );
// nol+ end
Arnd
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 10:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf