Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Tcustomgrid selection ändert sich bei manuellem Drag'n'Drop (https://www.delphipraxis.net/174229-tcustomgrid-selection-aendert-sich-bei-manuellem-dragndrop.html)

alleinherrscher 10. Apr 2013 15:54

Tcustomgrid selection ändert sich bei manuellem Drag'n'Drop
 
Hi@all!

Ich habe hier ne Sache, wo ich momentan ziemlich auf dem Schlauch stehe:

- Das TCustomgrid scheint bei einem Mausklick die TCustomgrid.Selection neu zu setzen, bevor das OnMouseDown Ereignis aufgerufen wird.
- Im OnMouseDown Ereignis starte ich ein manuelles Drag'n'Drop mit

Delphi-Quellcode:
 
  DragSelection:=trect(dgMailBox.Selection);
  if (DragSelection.top > 0) then
    begin
      (Sender as TDrawGrid).BeginDrag(False, 4); // Drag starten
    end;
- Wenn jetzt mehrere Rows in der Selektion sind (z.B. 4), und der User auf diese vier Rows klickt (Mousedown), um das Drag'n'drop zu starten, werden alle Rows (außer die, auf die geklickt wurde) wieder aus der Selektion entfernt, und meine Variable DragSelection enthält nur die eine Zeile, auf die geklickt wurde.

- Ich benötige dieses manuelle Drag'n'Drop weil ich Zeilen aus einem Drawgrid (=EMaileinträge) an ein TTreeview-Item (=Mailboxes) übergeben möchte (Mails in anderen Mailbox-Ordner verschieben).

Hat jemand eine Idee, wie ich dieses Problem lösen kann?

Gruß und besten Dank,
Michael


Alle Zeitangaben in WEZ +2. Es ist jetzt 22:13 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